# NOT RUN {
data(Monarchs)
library(hermite)
model = glm.hermite(Monarchs ~ Garden,
data = Monarchs,
link = "log",
m=3)
null = glm.hermite(Monarchs ~ 1,
data = Monarchs,
link = "log",
m=3)
nagelkerkeHermite(model, null)
# }
Run the code above in your browser using DataLab