每行只有一个观察结果。请注意,您得到NA
估计是因为没有足够的自由度。
这个想法是:
mapply(function(x,y) lm(y~x)$coefficients, DF[,1], DF[,2])
Or
apply(DF1, 1, function(x) lm(x[2]~x[1])$coefficients)
EDIT
假设您每行有很多观察值,即x
and y
变量跨越许多列
mapply(function(x,y) lm(y~x)$coefficients, as.data.frame(t(DFNew[1:3])),
as.data.frame(t(DFNew[4:6])))
Or
apply(DFNew, 1, function(x) lm(x[4:6]~x[1:3])$coefficients)
data
set.seed(25)
DFNew <- as.data.frame(matrix(sample(1:50,10*6, replace=TRUE), ncol=6))