r - 用lapply中的特定列计算多个回归分析

这是我的数据：

df1<-read.table(text=" Time1    Time2   Time3   MNR1    MNR2    MNR3

36  36  43  5   4   5
40  41  51  4   6   4
38  36  50  7   8   3
35  51  43  8   3   2
52  55  57  3   2   4
",header=TRUE)

我想有一个循环使用lapply（最好）使用回归模型和...来分析带有MNR1的Time1，带有MNR2的Time2和带有MRN3的时间3。

我尝试了以下功能，但无法获得结果：

R <- lapply(1:ncol(df1), function(x) lm(Time[,x] ~ MNR[,x]))

但这并没有给我每个小组的结果。我们可以使用lapply吗？

最佳答案

lapply(1:3, function(i) lm(as.formula(paste0('Time', i, ' ~ ', 'MNR', i)), data = df1))

关于r - 用lapply中的特定列计算多个回归分析，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/59117216/