quasibinomialff()
quasibinomialff(link="probit")
# Nonparametric logistic regression
hunua = transform(hunua, a.5 = sqrt(altitude)) # Transformation of altitude
fit1 = vglm(agaaus ~ poly(a.5, 2), quasibinomialff, hunua)
fit2 = vgam(agaaus ~ s(a.5, df=2), quasibinomialff, hunua)
plot(fit2, se=TRUE, llwd=2, lcol="red", scol="red",
xlab="sqrt(altitude)", ylim=c(-3,1),
main="GAM and quadratic GLM fitted to species data")
plotvgam(fit1, se=TRUE, lcol="blue", scol="blue", add=TRUE, llwd=2)
fit1@misc$dispersion # dispersion parameter
logLik(fit1)
# Here, the dispersion parameter defaults to 1
fit0 = vglm(agaaus ~ poly(a.5, 2), binomialff, hunua)
fit0@misc$dispersion # dispersion parameter
Run the code above in your browser using DataLab