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。