如何在R中創建線性模型列表？

Question

我需要在R中創建線性模型的命名列表。

models=list()
for (tag in tagnames){
   expr=paste0(tag," ~ .")
   f=formula(expr)
   models[tag]=lm(f,df)
 }

這是我編寫的代碼； 它實際上創建了列表，但顯然是一個不是可調用對象的列表的列表（即，predict方法對列表的元素不起作用）。

如何使列表中的元素可用作實際的lm對象？

Answer 1

您可以使用lapply創建模型列表：

models <- lapply(tagnames, function(x) lm(formula(paste0(x, " ~ .")), df))

並用

names(models) <- tagnames

然后在列表元素上調用predict ：

predict(models[["name"]])

Answer 2

您可以這樣：

models[[tag]]=lm(f,df)


models=list()
tagnames <- names(cars)
for (tag in tagnames){
  expr=paste0(tag," ~ .")
  f=formula(expr)
  fit <- lm( f, data = cars)
  models[[tag]]=fit
}