在 R 包 AER 中,您将找到函数dispersiontest
,它实现了Cameron & Trivedi (1990)的过度分散测试。
它遵循一个简单的想法:在泊松模型中,均值是,方差也是。他们是平等的。该检验只是将此假设作为零假设与的替代项进行对比,其中常数表示欠分散,表示过度分散。函数是一些单调函数(通常是线性或二次函数;前者是默认值)。得到的测试等效于测试 vs.并且使用的测试统计量是统计量,在 null 下是渐近标准正态的。E(Y)=μVar(Y)=μVar(Y)=μ+c∗f(μ)c<0c>0f(.)H0:c=0H1:c≠0t
例子:
R> library(AER)
R> data(RecreationDemand)
R> rd <- glm(trips ~ ., data = RecreationDemand, family = poisson)
R> dispersiontest(rd,trafo=1)
Overdispersion test
data: rd
z = 2.4116, p-value = 0.007941
alternative hypothesis: true dispersion is greater than 0
sample estimates:
dispersion
5.5658
在这里,我们清楚地看到存在过度分散的证据(c 估计为 5.57),这强烈反对等分散的假设(即 c=0)。
请注意,如果您不使用trafo=1
,它实际上会测试 vs. with这当然与其他测试具有相同的结果除了测试统计量被移动了一个。然而,这样做的原因是后者对应于准泊松模型中的公共参数化。 H0:c∗=1H1:c∗≠1c∗=c+1