# NOT RUN {
data(bmt)
dfactor(bmt) <- cause1f~cause
drelevel(bmt,ref=3) <- cause3f~cause
dlevels(bmt)
mreg <- mlogit(cause1f~tcell+platelet,bmt)
summary(mreg)
mreg3 <- mlogit(cause3f~tcell+platelet,bmt)
summary(mreg3)
## inverse information standard errors
estimate(coef=mreg3$coef,vcov=mreg3$II)
# }
Run the code above in your browser using DataLab