Я запускаю несколько одномерных логистических регрессий в R, используя следующий код:
glm_function <- function(y) summary(glm(HPVI_ANY~y, data = discovery, family = "binomial"))
uni_reg <- lapply(discovery[,2:109], glm_function)
, где glm_function - это функция для запуска логистической регрессии между моей исходной переменной (HPVI_any) и y. Затем я использую lapply для запуска логистической регрессии между результатом и предикторами, где предикторами являются столбцы 2–109 в моем наборе данных (называемые обнаружением).
Я получаю список: uni_reg. Я хотел бы создать фрейм данных с ключевыми значениями для каждой одномерной логистической регрессии, например, с оценкой, p-значением и т. Д. Я могу получить его один за другим с помощью следующего кода:
uni_reg$predictor_name$coefficients
Я хотел бы написать функцию, которая делает это для каждой из этих переменных и извлекает коэффициенты, добавляя их к кадру данных. Любая помощь приветствуется. Спасибо.