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