Main results
- Regression, logistic regression, cox :
epiDisplay
패키지 기반으로 결과테이블 생성
library(epiDisplay)
model0 <- glm(case ~ induced + spontaneous, family=binomial, data=infert)
logistic.display(model0, crude = T, crude.p.value = T)$table
## Log-likelihood = -139.806
## No. of observations = 248
## AIC value = 285.612