数据科学统计基础 R语言编程实现错误集锦

3.5.4
2 列联表的独立性检验

medicine <- as.table(rbind(c(58,38,32),c(28,44,45),c(23,18,14)))
dimnames(medicine) <- list("疗效"=c("显著","一般","较差"),
                           c("儿童","中青年","老年"))
medicine
chisq.test(medicine)

解决方法：

结果是失败的，没有变化…