4

我已经运行了各种模型（glm、rpart、earth 等）并将模型对象从每个模型导出到我计算机上的文件夹中。所以我现在有一个文件夹，其中有大约 60 个不同的模型存储为单独的 .rda 文件。

这是通过创建一个模型函数然后通过 purrr map 包将其应用于模型类型列表来完成的（以避免错误和终止）。

我现在想将它们加载回 r 并进行比较。不幸的是，当我编写我的初始模型脚本时，每个模型都存储为相同的，即“Model.Object”（我不知道该怎么做）所以当我尝试将每个模型单独加载到 r 中时，它只会相互覆盖。每个文件都保存为 glm.rda、rpart.rda、earth.rda 等，但其中的模型标记为 Model.Object（用于说明）。

所以我想我有几个问题；1. 可以将多个 .rda 文件加载到 r 中，然后将其编入索引列表 2. 如何更改已应用的模型函数，以便将“model.object”名称读取为模型类型（例如glm、rpart 等）

代码：

    Model.Function = function(Model.Type){

  set.seed(0)
  Model.Output = train(x = Pred.Vars.RVC.Data, y = RVC, trControl = Tcontrolparam,
                       preProcess = Preprocessing.Options, tuneLength = 1, metric = "RMSE",
                       method = Model.Type)

    save(Model.Object, file = paste("./RVC Models/",Model.Type,".rda", sep = ""))

  return(Model.Object)

}

Possibly.Model.Function = possibly(Model.Function, otherwise = "something wrong here")

result.possible = map(c("glm","rpart","earth"), Possibly.Model.Function)
4

1 回答 1

7

目前，对现有文件的救援操作可能看起来像这样（遵循@nicola 关于使用envirto 参数的评论load()）：

rda2list <- function(file) {
  e <- new.env()
  load(file, envir = e)
  as.list(e)
}

folder <- "./RVC Models"
files <- list.files(folder, pattern = ".rda$")

models <- Map(rda2list, file.path(folder, files))
names(models) <- tools::file_path_sans_ext(files)

展望未来，将模型保存为.Rds文件会saveRDS()比使用save(). 然后在加载文件时很容易重新分配。有关此问题的更多详细信息，请参见例如此问题和答案。

于 2018-07-24T05:46:04.893 回答