Я пытаюсь выполнить следующий код:
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!
Есть ли у вас какие-либо идеи о том, как я могу их решить?
Большое спасибо!