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 の 3 つのモデルが作成されることを期待していました。ただし、コードは目的の設定で nnet モデルを 3 回正常に実行しますが、モデルはワークスペースに保存されません。

この問題を解決する方法についてのアイデアはありますか?

前もって感謝します！

4

1 に答える 1

1

モデルのリストを作成します。

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

ループに他のものを保存したい場合は、より多くのリストを作成し、より多くの結果を保存してください。

于 2012-07-28T12:22:00.977 に答える