Skip to main content
. 2016 Sep 30;9:543–548. doi: 10.1016/j.dib.2016.09.040
> burden1=read.csv(“E:/…/Med2015/Data/table1.csv,header=T)
> attach(burden1)
> contrasts(burden1$Res)=contr.treatment(levels(burden1$Res),base=2)
> contrasts(burden1$Insured)=contr.treatment(levels(burden1$Insured),base=2)
> fit.burden1=vglm(cbind(C,B,A)~Res+Insured,family=multinomial,data=burden1)
> summary(fit.burden1)