Цикл по столбцам и использование каждого столбца в качестве переменной ответа в регрессионном моделировании

Question

У меня большой фрейм данных "Data_spec" состоит из имен графиков в первом столбце, 40 столбцов объясняющих переменных и 100 столбцов переменных ответа. Я хотел бы создать модель блеска путем зацикливания каждого столбца переменной ответа. Вот пример данных в качестве примера.

Следующий код для одного столбца, но как я могу l oop для каждого столбца, начиная с col1_exp до col5_resp, и создать модель для каждого из них? Любая помощь высоко ценится.

   model1<- glmer(col1_resp~col1_exp+col2_exp+col3_exp+col4_exp+col5_exp+
                               (1|PlotName),data = Data_spec, family="poisson")

Answer 1

Попробуйте использовать:

cols <- names(Data_spec)[7:11]

model_list <- lapply(cols, function(x) tryCatch(lme4::glmer(
       paste0(x, "~col1_exp+col2_exp+col3_exp+col4_exp+col5_exp+(1|PlotName)"), 
       data = Data_spec, family="poisson"), error = function(e){}))