> 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) |