0

我制作了多个模型并将它们以不同的名称存储在一个循环中

df <- data.frame(loc.id = rep(1000:1009,each = 20), y = rnorm(20*10), x = rnorm(20*10))

loc.vec <- c(1000:1009)

for(l in seq_along(loc.vec)){

      loc <- loc.vec[[l]]
      df.loc <- df[df$loc.id == loc,]
      mdl <- with(df.loc,lm(y ~ x))
      saveRDS(mdl,paste0("mod",loc,".mg.",".rda"))
      rm(mdl)
  }

当我尝试在循环中重新加载模型时:

  loc.vec <- c(1000:1009)

  for(l in seq_along(loc.vec)){

    loc <- loc.vec[[l]]
    readRDS(paste0("mod",loc,".mg.",".rda"))
  }

如何加载它们以使我的全局环境具有mod.1000.mgmod.1001.mg、mod.1002.mg 等模型

4

0 回答 0