DeptA=berk.data[which(Dept=='A'),]
TABLEA<-xtabs(Freq~Gender+Admit,data=DeptA)
TABLEA
fit1 <- xtabs(~Gender+Admit,data=TABLEA)
chisq.test(fit1)
原问题是验证odd ratio的theta=1,转化为验证Gender和Admit是否独立。
楼主: xiaxl19
|
416
0
求帮忙查看代码是否有问题 |
京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明 免责及隐私声明