用R语言预测鱼塘鱼尾的长度

  

分析：符号检验，本质上就是二项分布检验，因为样本抽取的好与坏、正与负，相当于实验的成功与失败，且每次成功和失败的概率都为1/2。

           在R语言中，我们可以正态近似函数prop.test()，或者二项分布精确函数binom.test()来完成“符号检验”。

          如果样本数小于50个的，则利用binom.test()进行“符号检验”；

          如果样本数较大的（大于50个），则利用prop.test()进行“符号检验”。

代码如下：

##鱼尾的长度
x <- c(13.32, 13.06, 14.02, 11.86, 13.58, 13.77, 13.51, 13.42, 14.44, 15.43)
res5 <- binom.test( sum(x>14.6),length(x),al="less")
print(res5)

   Exact binomial test    ##精确二项式分布检验。


data:  sum(x > 14.6) and length(x) 
number of successes = 1, number of trials = 10, p-value = 0.01074
alternative hypothesis: true probability of success is less than 0.5 
95 percent confidence interval:
 0.0000000 0.3941633 
sample estimates:
probability of success 
                   0.1 

      输出P_value = 0.01074 < 0.05，说明H0:鱼尾长度x >= 14.6不成立。

     又根据置信区间[0.0000000 0.3941633 ] < 0.5 (即1/2），也就是鱼尾长度超过14.6cm的数目小于1/2，即该鱼塘的鱼尾长度在中位数之上。