data(metastmelanoma)
f_fit <- emforbeta(failcens ~ size+type+nodal+age+sex+trt,
data=metastmelanoma,
family=binomial, method="glm.fit")
summary(f_fit$mfit)
vcov_beta<-f_fit$cvcov # variance-covariance calculation using Louis (1982)
vcov_beta
se_beta_em<-sqrt(diag(vcov_beta))
se_beta_em
# Firth Correction
f_fit <- emforbeta(failcens ~ size+type+nodal+age+sex+trt,
data=metastmelanoma,
family=binomial, method="brglmFit")
summary(f_fit$mfit)
vcov_beta<-f_fit$cvcov # variance-covariance calculation using Louis (1982)
vcov_beta
se_beta_em<-sqrt(diag(vcov_beta))
se_beta_em
Run the code above in your browser using DataLab