R infert 自然流产和人工流产后不孕

说明

这是一项匹配的 case-control 研究，可追溯到条件逻辑回归可用之前。

用法

infert

格式

1.	Education	0 = 0-5 年
		1 = 6-11 岁
		2 = 12+ 年
2.	age	案件年龄(岁)
3.	parity	count
4.	先前的数量	0 = 0
	人工流产	1 = 1
		2 = 2 或更多
5.	案件状态	1 = 案例
		0 = 控制
6.	先前的数量	0 = 0
	自然流产	1 = 1
		2 = 2 或更多
7.	匹配的集合数	1-83
8.	层数	1-63

注意

省略了 1 例既往有 2 次自然流产和 2 次人工流产的病例。

例子

require(stats)
model1 <- glm(case ~ spontaneous+induced, data = infert, family = binomial())
summary(model1)
## adjusted for other potential confounders:
summary(model2 <- glm(case ~ age+parity+education+spontaneous+induced,
                     data = infert, family = binomial()))
## Really should be analysed by conditional logistic regression
## which is in the survival package
if(require(survival)){
  model3 <- clogit(case ~ spontaneous+induced+strata(stratum), data = infert)
  print(summary(model3))
  detach()  # survival (conflicts)
}

来源

Trichopoulos 等人 (1976) Br。 J. of Obst。和妇科。 83、645-650。