如何将多个线性回归斜率输出到新列表？

Question

我有一个data.frame和观察列表http://imgur.com/7hL2bDC

以及观察时间列表http://imgur.com/w1P0qsg

我想创建一个列表，其中包含该数据帧各列的线性回归线斜率和观察时间。

如果我手动完成所有操作，则可以执行以下操作：

raw_slope <-lm（score1 $ AKR〜obs）

斜率<-raw_slope $ coefficients [[2]]

然后“坡度”就是我想要的值。 我试图了解如何运行某些数据，并为data.frame中的19个公司符号中的每个符号吐出斜率。

我是R的新手，但我正在尝试学习它，我感谢为我指明正确方向的任何帮助。

EDIT2：我为每行手动运行了lm（score1 $ ...〜obs），所以我知道计算应该全部解决。

编辑：我从评论中尝试了建议

listlope <-lapply（分数1，函数（x）coef（lm（x〜obs））[2]）

越来越

lm.fit（x，y，offset = offset，singular.ok = singular.ok，...）中的错误：0（非NA）

我将尝试找出导致此问题的原因，但我想更新我的帖子并表示感谢。

Answer 1

lapply(score1, function(x) coef(lm(x~obs))[2])

应该在列表中给您。

如果您想使用向量，请使用sapply 。