조정 및 조정되지 않은 OR의 greg 패키지

Question

미 조정 및 조정 된 교차비에 대한 테이블을 만들려고합니다. 내 코드는 다음과 같습니다 :

model<- glm(lead_ind ~ hseAge+ DurStayCat + 
         gender + Region + 
         ips_parasites, data=DfStudy2sel) 

printCrudeAndAdjustedModel(model) 

그러나 출력 결과는 베타와 신뢰 구간입니다. 어떻게하면 OR, 95 % CI를 얻을 수 있습니까? 감사합니다

Answer 1

문제는 당신이 로지스틱 회귀를하고 있지만 일반 가우스입니다. 이항 가족을 사용하도록 지정해야합니다 (예 :

library(datasets) 
data(mtcars) 
mtcars$am <- factor(mtcars$am, labels = c("Automatic", "Manual")) 
fit <- glm(am == "Automatic" ~ cyl + mpg, data = mtcars, family = binomial) 

library(Greg) 
# Drop the intercept column via the -1 as it is rarely used in logistic models 
printCrudeAndAdjustedModel(fit)[-1,]