在 R 中通过 glmer 捕捉收敛与否

Question

我正在使用 glmer 函数进行模拟。对于我提取的每个模拟估计，...到数据库中，但我也想有一个变量指示模拟数据是否正确收敛。（我收到警告，例如奇异收敛、错误收敛……但无论如何都会给出估计值）。

我试试

assign("last.warning", NULL, envir = baseenv()) # clear the previous warning
mod1=glmer(y~x+(1+x|study), family="binomial", data=test1)
warningss1=ifelse(length(warnings())>0, "yes", "no"); warningss1

它总是return我不，即使它有分歧`

Answer 1

无论如何，我不会反对一般的警告机制，就像我们俩已经做过的那样。我无法找到将警告日志清零或重置的方法。它被相当有效地隐藏起来。相反，看看这个对象，假设它的名字是 gm1，你就会收敛失败。（我只是减少了样本量直到发生收敛失败。）：

    gm1@optinfo$conv$lme4$messages
#[1] "Model failed to converge with max|grad| = 0.10941 (tol = 0.001, component 5)"
#[2] " Hessian is numerically singular: parameters are not uniquely determined"   

any( grepl("failed to converge", gm1@optinfo$conv$lme4$messages) )
#[1] TRUE

#with a convergent run:
> any( grepl("failed to converge", gm1@optinfo$conv$lme4$messages) )
#[1] FALSE 
>   gm1@optinfo$conv$lme4$messages
#NULL

Answer 2

我正在寻找解决同一问题的方法，但偶然发现了这个问题。经过更多研究后，我发现以下工作（至少对于 glm 模型）：

obj <- glm(y ~ x, ...) # model specification
if (obj$converged) { 
# do stuff
} else { 
# do something else 
}

在 R 中通过 glmer 捕捉收敛与否

Catching the convergence or not by glmer in R

r

glm

convergence