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