y <- c(92,68,28,11,1,0)
q <- ppois(x,mean(rep(x,y)))
n <- length(y)
p[1] <- q[1]
p[n] <- 1-q[n-1]
for (i in 2:(n-1))
p<-q-q[i-1]
chisq.test(y,p=p)
|
楼主: kizgel
|
1820
5
[问答] 一个小R程序,找不到对象,大侠帮忙看看,感激 |
|
本科生 37%
-
|
| ||
|
|
| ||
加好友,备注cda京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明


