Как использовать функцию apply или lapply

Question

У меня есть столбцы данных, и я хотел бы использовать WD в качестве независимой переменной и E1-E14 в качестве зависимой переменной, выполнить регрессию для каждого и записать вывод в файл CSV. Пожалуйста, помогите введите описание изображения здесь

Это то, что я сделал, однако он выводит одинаковые результаты для всех столбцов. Я думаю, что переменная мода установлена ​​неправильно.

mod <- function(y) lm(E1 ~ WD , data = data)
lapply(data[,5:16], mod) 

Answer 1

Это, вероятно, то, что вы хотите, но может потребоваться некоторые изменения, чтобы получить в полной мере то, что вам нужно.

df <- data.frame(WD = c(1,1,0,0,0,1,1,1,0,0),
                E1 = rnorm(10,0,1),
                E2 = rnorm(10,0,1))


mod <- function(x){

  lm(WD ~ x, data = df)


}

sapply(df[setdiff(names(df),"WD")],mod)