Я пытаюсь применить простую линейную регрессию между двумя столбцами фрейма данных для каждой строки. После некоторых исследований я чувствую, что почти нахожусь, но моя функция все еще не работает. Пожалуйста, взгляните:

set.seed(1)
DF <- data.frame(A=rnorm(50, 100, 3),
                 B=rnorm(50, 100, 3))

resultlist   <- apply(DF, 1, function(y) lm(y ~ x))
resultcoeffs <- apply(DF, 1, function(y) lm(y ~ x)$coefficients)

Любой совет, как этого добиться?

Заранее спасибо.