Quasi-Likelihood Model for Counts
The function fits the log linear model (“Procedure II”) proposed by Breslow (1984) accounting for overdispersion in counts y.
quasipois(formula, data, phi = NULL, tol = 0.001)
formula |
A formula for the fixed effects. The left-hand side of the formula must be the counts |
data |
A data frame containing the response ( |
phi |
When |
tol |
A positive scalar (default to 0.001). The algorithm stops at iteration r + 1 when the condition χ{^2}[r+1] - χ{^2}[r] <= tol is met by the chi-squared statistics . |
For a given count y, the model is:
y | λ ~ Poisson(λ)
with λ a random variable of mean E[λ] = μ
and variance Var[λ] = φ * μ^2.
The marginal mean and variance are:
E[y] = μ
Var[y] = μ + φ * μ^2
The function uses the function glm and the parameterization: μ = exp(X b) = exp(η), where X
is a design-matrix, b is a vector of fixed effects and η = X b is the linear predictor.
The estimate of b maximizes the quasi log-likelihood of the marginal model.
The parameter φ is estimated with the moment method or can be set to a constant
(a regular glim is fitted when φ is set to 0). The literature recommends to estimate φ
with the saturated model. Several explanatory variables are allowed in b. None is allowed in φ.
An offset can be specified in the argument formula to model rates y/T (see examples). The offset and the
marginal mean are log(T) and μ = exp(log(T) + η), respectively.
An object of formal class “glimQL”: see glimQL-class for details.
Matthieu Lesnoff matthieu.lesnoff@cirad.fr, Renaud Lancelot renaud.lancelot@cirad.fr
Breslow, N.E., 1984. Extra-Poisson variation in log-linear models. Appl. Statist. 33, 38-44.
Moore, D.F., Tsiatis, A., 1991. Robust estimation of the variance in moment methods for extra-binomial
and extra-poisson variation. Biometrics 47, 383-401.
glm, negative.binomial in the recommended package MASS,
geese in the contributed package geepack,
glm.poisson.disp in the contributed package dispmod.
# without offset
data(salmonella)
quasipois(y ~ log(dose + 10) + dose,
data = salmonella)
quasipois(y ~ log(dose + 10) + dose,
data = salmonella, phi = 0.07180449)
summary(glm(y ~ log(dose + 10) + dose,
family = poisson, data = salmonella))
quasipois(y ~ log(dose + 10) + dose,
data = salmonella, phi = 0)
# with offset
data(cohorts)
i <- cohorts$age ; levels(i) <- 1:7
j <- cohorts$period ; levels(j) <- 1:7
i <- as.numeric(i); j <- as.numeric(j)
cohorts$cohort <- j + max(i) - i
cohorts$cohort <- as.factor(1850 + 5 * cohorts$cohort)
fm1 <- quasipois(y ~ age + period + cohort + offset(log(n)),
data = cohorts)
fm1
quasipois(y ~ age + cohort + offset(log(n)),
data = cohorts, phi = fm1@phi)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.