library(vegan)
data(dune)
data(dune.env)
dune.env$Agrsto<- dune$Agrsto
Count.model1 <- glm(Agrsto ~ Management + A1, family=quasipoisson(link=log),
data=dune.env, na.action=na.omit)
summary(Count.model1)
deviancepercentage(Count.model1,dune.env)
Run the code above in your browser using DataLab