# Nonparametric proportional odds model
data(pneumo)
pneumo = transform(pneumo, let=log(exposure.time))
vgam(cbind(normal,mild,severe) ~ s(let), cumulative(par=TRUE), pneumo)
# Nonparametric logistic regression
data(hunua)
fit = vgam(agaaus ~ s(altitude), binomialff, hunua)
plot(fit, se=TRUE)
# Fit two species simultaneously
fit2 = vgam(cbind(agaaus, kniexc) ~ s(altitude), binomialff(mv=TRUE), hunua)
coef(fit2, mat=TRUE) # Not really interpretable
plot(fit2, se=TRUE, overlay=TRUE, lcol=1:2, scol=1:2)
attach(hunua)
o = order(altitude)
matplot(altitude[o], fitted(fit2)[o,], type="l", lwd=2, las=1,
xlab="Altitude (m)", ylab="Probability of presence",
main="Two plant species' response curves", ylim=c(0,.8))
rug(altitude)
detach(hunua)
Run the code above in your browser using DataLab