ちょうど今これに遭遇します。混乱を避けるために、私は元の質問で参照されているWilson of Wilson(2015)です。これは、ポアソンモデルと切り捨てられたポアソンモデルがネストされているか、ネストされていないかなどを尋ねます。少し単純化すると、大きいモデルの場合、小さいモデルは大きいモデルにネストされますパラメータのサブセットが指定された値に固定されている場合、モデルはより小さいモデルに縮小されます。2つのモデルは、それぞれのパラメーターのサブセットが特定の値に固定されているときに両方が同じモデルに減少する場合、重複します。一方のパラメーターが他方に減少できない場合でも、それらはネストされていません。この定義によれば、切り捨てられたポアソンと標準のポアソンはネストされていません。しかし、これは多くの人によって見過ごされてきたように思われる点です。Vuongの分布理論は、厳密にネストされた、厳密にネストされていない、と厳密に重複しています。「厳密に」とは、入れ子などの基本的な定義に6つの制限を追加することを指します。これらの制限は厳密には単純ではありませんが、とりわけ、対数尤度比の分布に関するVuongの結果は、モデル/分布は、パラメーター空間の境界で入れ子になっています(ゼロ膨張パラメーターのアイデンティティリンクを持つポアソン/ゼロ膨張ポアソンの場合のように)、またはパラメーターが無限大になる傾向があるときに、1つのモデルが他のモデルに向かう傾向があります。ポアソン/ゼロ膨張ポアソンの場合は、ロジットリンクを使用してゼロ膨張パラメーターをモデル化した場合です。Vuongは、これらの状況での対数尤度比の分布に関する理論を進めていません。残念ながらここでは、
次のRコードは、ポアソン分布と切り捨てられたポアソン対数尤度比のシミュレーションを行います。VGAM
パッケージが必要です。
n<-30
lambda1<-1
H<-rep(999,10000)
for(i in 1:10000){
print(i)
y<-rpospois(n, lambda1)
fit1 <- vglm(y ~ 1, pospoisson)
fit2<-glm(y~1, family=poisson(link="log"))
H[i]<-logLik(fit1)-logLik(fit2)
}
hist(H,col="lemonchiffon")
vuong
パッケージpscl
内の関数を知っていましたが、これはネストされていないモデル用であると述べています。私はググって、「ネストされた」引数を含むvuongtest
パッケージnonnest2
内の関数を見つけました。それですか?