quasibinomialff()
quasibinomialff(link="probit")
data(hunua)
fit = vgam(agaaus ~ poly(altitude, 2), binomialff(link=cloglog), hunua)
with(hunua, plot(altitude, agaaus, col="blue", ylab="P(agaaus=1)",
main="Presence/absence of Agathis australis", las=1))
o = with(hunua, order(altitude))
with(hunua, lines(altitude[o], fitted(fit)[o], col="red", lwd=2))
Run the code above in your browser using DataLab