Привет, вот подход. Обратите внимание, что будет полезно, если вы включите некоторые образцы данных для работы с нами.
Создание некоторых поддельных данных ...
fake_data <- matrix(rnorm(300), ncol = 3)
y_start <- 1/(1+exp(-(fake_data %*% c(1, .3, 2))))
y <- rbinom(100, size = 1, prob = y_start)
dat <- data.frame(y, fake_data)
Теперь мы подходим к модели:
library(rms)
fit <- lrm(y ~ ., data = dat)
Коэффициенты модели будут в форме лог-шансов (все еще в логарифмическом масштабе)
# Log-odds
coef(fit)
Intercept X1 X2 X3
0.03419513 0.92890297 0.48097414 1.86036897
Если вы хотите перейти в шансы, нам нужно использовать возведение в степень для переноса из лог-шкалы.
# Odds
exp(coef(fit))
Intercept X1 X2 X3
1.034787 2.531730 1.617649 6.426107
Таким образом, в этом примере вероятность увеличения Y увеличивается на 2,5 с увеличением X1.