Присвойте разные имена моделям, построенным во время цикла - PullRequest
Новая
       30

Присвойте разные имена моделям, построенным во время цикла

0 голосов
/ 07 июня 2018

Я сделал несколько моделей и сохранил их в отдельных именах в цикле 

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.mg, mod.1001.mg, mod.1002.mg и т. д.

...