Estou tentando aplicar uma regressão linear simples entre duas colunas de um quadro de dados, para cada linha. Depois de algumas pesquisas, sinto que estou quase lá, mas minha função ainda não funciona. Por favor dê uma olhada:

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)

Alguma dica sobre como conseguir isso?

Desde já, obrigado.