pneumo <- transform(pneumo, let = log(exposure.time))
(fit <- vglm(cbind(normal,mild,severe) ~ let, propodds, pneumo))
model.matrix(fit)
df.residual(fit, type = "vlm")
nobs(fit, type = "vlm")
nvar(fit, type = "vlm")
df.residual(fit, type = "lm") # This is more usual to some people
nobs(fit, type = "lm")
nvar(fit, type = "lm")
Run the code above in your browser using DataLab