data(sixcitydata)
f_fit <- emforbeta(Wheeze ~ city+soc+cond,
data=sixcitydata,
family=binomial(link="logit"), method="glm.fit")
#creates the summary like glm using the return object mfit
summary(f_fit$mfit)
vcov_beta<-f_fit$cvcov #creates variance using Louis (1982)
se_beta_em<-sqrt(diag(vcov_beta))
se_beta_em
Run the code above in your browser using DataLab