R实验设计与数据分析（基于R语言应用）

6.测得喷洒有机砷农药的4株植物样本的砷残留量为7.5mg,9.7mg,6.8mg,6.4mg；未喷洒有机农药的对照3株植物样本中砷含量为4.2mg，7.0mg,4.6mg,试检验喷洒有机砷农药是否使得植物有机砷含量显著提高。

解：

R程序：

c1<-c(7.5,9.7,6.8,6.4);mean(c);var(c1);sd(c1);c2<-c(4.2,7.0,4.6);mean(c2);var(c2);sd(c2);

t.test(c1,c2,paired=FALSE)

明显有P值大于0.05，拒绝原假设。

书面解答：

（1）原假设：喷洒有机砷农药不能使得植物有机砷含量显著提高。

备择假设：喷洒有机砷农药使得植物有机砷含量显著提高。

（2）取α=0.05

（3）由于两个样本均属于小样本，并且属于两组不同的数据组，所以有T检验：

故有

，所以拒绝原假设，即喷洒有机砷农药使得植物有机砷含量显著提高