pneumo = transform(pneumo, let=log(exposure.time))
fit = vglm(cbind(normal, mild, severe) ~ let, propodds, pneumo)
M = fit@misc$M
prplot(fit)
prplot(fit, lty=1:M, col=(1:M)+2, rug=TRUE, las=1, ylim=c(0,1), rlwd=2)
Run the code above in your browser using DataLab