如何在循环内获取不同模型的摘要？答案

【问题标题】：How to get summary of different models inside loop?如何在循环内获取不同模型的摘要？
【发布时间】：2020-12-29 00:08:24
【问题描述】：

我有 30 个不同的非线性模型，分别命名为 model1、model2、....、model30。我想在 R 的循环中总结它们。我试过这段代码，但没有返回任何值。

n = 0
while (n<15){
  model = paste("model",n, sep = "")
  summary(model)
  n = n + 1}

如何在每个模型后不输入摘要的情况下解决此问题？

【问题讨论】：

标签： r loops

【解决方案1】：

采用@rui-barradas cmets 并假设您只想将结果打印到控制台。

n = 1
while (n < 31) {
   model <- paste("model", n, sep = "")
   print(summary(get(model)))
   n = n + 1
}

或者，如果您想打印到屏幕上，并且能够干净地创建一个包含所有结果的对象...

results1to30 <- lapply(mget(paste("model", 1:30, sep = "")), summary)

【讨论】：