data(birds.df)
str(birds.df)
model.final.copy <- # Try mimic the book example
vglm(Status ~ Upland + Migr + Mass + Indiv + Insect + Wood,
binomialff, data = birds.df, trace = TRUE)
summary(model.final.copy, hde.NA = FALSE) # Wald table
hdeff(model.final.copy)
hdeff(model.final.copy, deriv = 2)
Run the code above in your browser using DataLab