我正在尝试执行以下代码：
for (i in seq_along(lista_final)){
if (i<3){
logit <- glm(reformulate(indep[[1]], "dummy_resultado"), data=lista_final[[i]], family = binomial(link = "logit"))
logit_m <- logitmfx(reformulate(indep[[1]], "dummy_resultado"), data=lista_final[[i]], robust = TRUE)
}
else{
logit <- glm(reformulate(indep[[2]], "dummy_resultado"), data=lista_final[[i]], family = binomial(link = "logit"))
logit_m <- logitmfx(reformulate(indep[[2]], "dummy_resultado"), data=lista_final[[i]], robust = TRUE)
}
}
其中indep是自变量列表，lista_final是数据帧列表，logitmfx是mfx包中的函数。但是，当代码运行时，我面临以下警告：
1: In eval(family$initialize) : #sucessos não-inteiro em um glm binomial!
2: In eval(family$initialize) : non-integer #successes in a binomial glm!
3: In eval(family$initialize) : #sucessos não-inteiro em um glm binomial!
4: glm.fit: probabilidades ajustadas numericamente 0 ou 1 ocorreu
5: In eval(family$initialize) : non-integer #successes in a binomial glm!
6: glm.fit: fitted probabilities numerically 0 or 1 occurred
7: In eval(family$initialize) : #sucessos não-inteiro em um glm binomial!
8: glm.fit: algoritmo não convergiu
9: In eval(family$initialize) : non-integer #successes in a binomial glm!
10: glm.fit: fitted probabilities numerically 0 or 1 occurred
11: In eval(family$initialize) : #sucessos não-inteiro em um glm binomial!
12: In eval(family$initialize) : non-integer #successes in a binomial glm!
您对我该如何解决它们有任何想法吗？
非常感谢！