quasipoissonff()
n <- 200; p <- 5; S <- 5
mydata <- rcqo(n, p, S, fam = "poisson", EqualTol = FALSE)
myform <- attr(mydata, "formula")
p1 <- cqo(myform, fam = quasipoissonff, EqualTol = FALSE, data = mydata)
sort(p1@misc$deviance.Bestof) # A history of all the iterations
lvplot(p1, y = TRUE, lcol = 1:S, pch = 1:S, pcol = 1:S)
summary(p1) # The dispersion parameters are estimated
Run the code above in your browser using DataLab