pneumo = transform(pneumo, let=log(exposure.time))
(fit = vglm(cbind(normal,mild,severe) ~ let, cratio(parallel=TRUE), pneumo))
coef(fit, matrix=TRUE)
constraints(fit)
predict(fit)
predict(fit, untransform=TRUE)
Run the code above in your browser using DataLab