R esoph 吸煙、飲酒和食管癌

說明

來自法國 Ille-et-Vilaine 的食管癌 case-control 研究的數據。

用法

esoph

格式

包含 88 種年齡/酒精/煙草組合記錄的 DataFrame 。

[,1]	"agegp"	年齡階層	1 25--34歲
			2 35--44
			3 45--54
			4 55--64
			5 65--74
			6 75+
[,2]	"alcgp"	酒精消耗	1 0--39克/天
			2 40--79
			3 80--119
			4 120+
[,3]	"tobgp"	煙草消費	1 0-- 9 克/天
			2 10--19
			3 20--29
			4 30+
[,4]	"ncases"	案件數量
[,5]	"ncontrols"	控製數量

例子

require(stats)
require(graphics) # for mosaicplot
summary(esoph)
## effects of alcohol, tobacco and interaction, age-adjusted
model1 <- glm(cbind(ncases, ncontrols) ~ agegp + tobgp * alcgp,
              data = esoph, family = binomial())
anova(model1)
## Try a linear effect of alcohol and tobacco
model2 <- glm(cbind(ncases, ncontrols) ~ agegp + unclass(tobgp)
                                         + unclass(alcgp),
              data = esoph, family = binomial())
summary(model2)
## Re-arrange data for a mosaic plot
ttt <- table(esoph$agegp, esoph$alcgp, esoph$tobgp)
o <- with(esoph, order(tobgp, alcgp, agegp))
ttt[ttt == 1] <- esoph$ncases[o]
tt1 <- table(esoph$agegp, esoph$alcgp, esoph$tobgp)
tt1[tt1 == 1] <- esoph$ncontrols[o]
tt <- array(c(ttt, tt1), c(dim(ttt),2),
            c(dimnames(ttt), list(c("Cancer", "control"))))
mosaicplot(tt, main = "esoph data set", color = TRUE)

作者

Thomas Lumley

來源

Breslow, N.E. 和 Day, N.E. (1980) 癌症研究的統計方法。第一卷：Case-Control 研究分析。 IARC 裏昂/牛津大學出版社。