data1 <- subset(psfmi::lbpmilr, Impnr==1) # extract first imputed dataset
res_single <- glm_bw(data=data1, p.crit = 0.05, formula=Chronic ~
Tampascale + Smoking + factor(Satisfaction), model_type="binomial")
res_single$RR_model_final
res_single <- glm_bw(data=data1, p.crit = 0.05, formula=Pain ~
Tampascale + Smoking + factor(Satisfaction), model_type="linear")
res_single$RR_model_final
Run the code above in your browser using DataLab