# NOT RUN {
data(reti)
mod <- ordDisp(RET~SM+DIAB+GH+BP|SM+DIAB,data=reti,family="cumulative")
plot(mod,names=c("SM","DIAB"),colorvec=c(1,2))
plotvglm(mod)
mod2 <- ordDisp(RET~SM+s(DIAB)+GH+BP|SM+DIAB+GH+BP, data=reti,
family="cumulative", n_bs=4, scaling=FALSE)
plot(mod2, names=c("DIAB"))
# }
Run the code above in your browser using DataLab