0

这工作正常：

fit.mc1 <-MCMCglmm(bull~1,random=~school,data=dt1,family="categorical",
prior=list(R=list(V=1, fix=1), G=list(G1=list(V=1, nu=0))), slice=T)

这样做也是如此：

fit.glmer <- glmer(bull~(1|school),data=dt1,family=binomial)

但是现在我正在尝试使用该软件包glmmadmb，但这不起作用：

fit.mc12 <- glmmadmb(bull~1+(1|school), data=dt1, family="binomial", 
mcmc=TRUE, mcmc.opts=mcmcControl(mcmc=50000))

它会产生错误：

Error in glmmadmb(bull~ 1 + (1 | school), data = dt1, family = "binomial", : 
The function maximizer failed (couldn't find STD file)
In addition: Warning message:
running command '<snip>\cmd.exe <snip>\glmmadmb.exe" -maxfn 500 -maxph 5 
-noinit -shess -mcmc 5000 -mcsave 5 -mcmult 1' had status 1
4

1 回答 1

0

嗯。任何可重复的例子的机会......？

以下简单的模拟案例似乎可以工作（尽管withglmmADMB比mcmc-它实际上还没有完成，尽管它似乎在没有抱怨的情况下继续进行）。MCMCglmm

对于这种简单的情况，我怀疑它glmmADMB是由 主导的MCMCglmm，尽管如果您正在与反贝叶斯裁判打交道，这可能会很有用......

nschool <- 20
nrep <- 20
dt1 <- expand.grid(school=LETTERS[1:nschool],rep=seq(nrep))
set.seed(101)
u.school <- rnorm(nrep)
dt1$eta <- u.school[dt1$school]
dt1$bull <- rbinom(nrow(dt1),size=1,prob=plogis(dt1$eta))

library(MCMCglmm)
fit.mc1 <-MCMCglmm(bull~1,random=~school,data=dt1,family="categorical",
                   prior=list(R=list(V=1, fix=1), G=list(G1=list(V=1, nu=0))),
                   slice=TRUE)

library(lme4)
fit.glmer <- glmer(bull~(1|school),data=dt1,family=binomial)

library(glmmADMB)
fit.mc12 <- glmmadmb(bull~1+(1|school), data=dt1, family="binomial", 
                     mcmc=TRUE, mcmc.opts=mcmcControl(mcmc=50000))
于 2012-06-23T21:14:32.040 回答