Аргумент "веса" в функции bayesglm () в R
Я строю модель прогнозирования риска по умолчанию, используя bayesglm с биномиальным методом, и я хотел бы подогнать модель с весами, я пытаюсь использовать главный вектор (сумму денег, которую компания ссудила человеку) в качестве весов, но я получили эти предупреждающие сообщения:
1: In bayesglm.fit(x = X, y = Y, weights = weights, start = start, : non-finite coefficients at iteration 4
2: algorithm did not converge
3: fitted probabilities numerically 0 or 1 occurred
У директора слишком большая дисперсия, что может быть причиной? Я пробовал с журналом и получил те же сообщения.
set.seed(123)
lm_D_O9<- bayesglm(sampleDefaultO_tr$Default ~ ., data = sampleDefaultO_tr[,-c(20,23,24,49:54,58,60:62)], family=binomial,control = list(maxit = 100),
weights=floor(log(sampleDefaultO_tr$mntTotal)*1000))
Мое репо здесь -> github.com/dclopezb9/Thesis Заранее спасибо!