如何从R中的For循环导出多个模型(列出无法同化data.frame的对象)

# 创建一个空的列表，用于存储模型
model_list <- list()

# 假设有一个名为data的数据框，其中包含多个变量
data <- data.frame(x1 = rnorm(100), x2 = rnorm(100), y = rnorm(100))

# 使用for循环来拟合多个模型
for (i in 1:2) {
  # 创建一个公式，其中y是因变量，x1和x2是自变量
  formula <- as.formula(paste("y ~ x", i, sep = ""))
  
  # 拟合线性回归模型
  model <- lm(formula, data = data)
  
  # 将模型添加到列表中
  model_list[[i]] <- model
}

# 打印模型列表
print(model_list)

# 导出模型
for (i in 1:length(model_list)) {
  # 使用saveRDS函数将模型保存为RDS文件
  saveRDS(model_list[[i]], file = paste("model", i, ".rds", sep = ""))
}