0

我希望我能在以下问题上得到一些帮助。基本上，我想根据特定向量 PredVector 的长度以编程方式创建许多 nnet 模型。PredVector 中的每个值都间接引用了我的数据集 PSTrain 中的一列。

代码如下：

PredVector <- c(1, 3, 5)
for (i in 1:length(PredVector)) {
   modelName <- paste("nnModel", PredVector[i], sep="")
   modelForm <- paste("TPlus", PredVector[i], "~.", sep="")
   as.formula(paste(modelName, "<- nnet(", modelForm, ", PSTrain, size=5, maxit=2000, linout=F)"))
}

我希望创建三个模型：nnModel1、nnModel3 和 nnModel5。但是，虽然代码在所需设置下成功运行了 nnet 模型三次，但模型并未保存到我的工作区。

关于如何解决这个问题的任何想法？

提前致谢！

4

1 回答 1

1

列出模型：

models <- list()
for(i in seq(length(ProdVector))) {
   models[[i]] <- # run model here
}

如果您想在循环中保存其他内容，请制作更多列表并存储更多结果。

于 2012-07-28T12:22:00.977 回答