data(est45)
f_fit <- emforbeta(resp ~ Fetoprtn + Antigen + Jaundice + Age,
data = est45, family = binomial, method = "glm.fit")
summary(f_fit$mfit)
#Bias-reduced estimates due to Firth (1993)
f_fit <- emforbeta(resp ~ Fetoprtn + Antigen + Jaundice + Age,
data = est45, family = binomial, method = "brglmFit")
summary(f_fit$mfit)
Run the code above in your browser using DataLab