参考文献:
1.何春拉,潘建红,陈,靖等.Cochran—Armitage 趋势检验不同赋值的模拟研究[J].中国卫生统计,2012,29(6):843-845
#赋值观察矩阵
Age <-matrix(c(108,373,494,1283,214,387), byrow=TRUE, nrow=3,dimnames = list(age=c('0-20','20-40','40-60'), serious=c('y','n')))
#方法一:调用coin包,使用chisq_test函数
require('coin')
Age1 <- as.table(Age)
chisq_test(Age,scores=list(age=c(2,1,0)))
#方法二:调用Desctools包,使用CochranArmitageTest函数
require('DescTools')
CochranArmitageTest(Age)


雷达卡



京公网安备 11010802022788号







