How to use apply or lapply function

Question

I have columns of data and would like to use the WD as an independent variable and E1-E14 as dependent variable and do a regression for each and write the output to a csv file. Please help enter image description here

This what I did, however it outputs the same results for all columns. I think the mod variable is being incorrectly set.

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

Answer 1

This is probably what you want, but it may requires some changes to get to the full extent of what you need.

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)