[问题类型]:
程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
[软件熟悉度]:
入门(写过其他程式，只是对语法不熟悉)
[问题叙述]:
建立多个lm模型，用loop存入一个list，给 $reg1, $reg2, ...等名字
建立多个变量，用loop存取这些lm的coefficient[[2]]，就是想存斜率
如下code，卡在呼叫lm的coefficient的地方，呼叫line[i]是okay的。
呼叫coefficient后，会return NULL。
[程式范例]:
https://ideone.com/LfFEzU
test <- function() {
vec1 <- c(1,2,3)
vec2 <- c(4,5,6)
line <- list()
for (i in 1:2) {
line$i <- lm(vec2 ~ vec1)
names(line)[i] <- paste0("reg", i)
}
# return(line)
coef <- list()
for (i in 1:2) {
coef$i <- line[i]$coefficient[[1]]
return(coef$i) # <