r - ループで gbm を実行し、r の各モデルの予測値を計算します

Question

R のループで異なる学習率の gbm モデルを作成しようとしています。モデルごとにいくつかの統計を計算し、それらを元のデータ セットと組み合わせたいと考えています。

しかし、統計が計算されるたびに、前の統計と同じ名前で保存され、エラーが発生するため、エラーが発生します。

ループの最後に次のエラーが表示されます。

Error in `[<-.data.frame`(`*tmp*`, nl, value = list(dates = c(14824, 14825,  : 
  duplicate subscripts for columns

列車データは、基本的に日付、始値、終値などの株価データです。

コードは次のとおりです。

   learningRateList <- as.numeric(7:9)*0.01

for (i in learningRateList){
  modelNames <- paste("gbmModel", i, sep = "") 
  gbmModels <-gbm.step(data=train, gbm.x = reqCol, gbm.y = CloseCol,tree.complexity =9,learning.rate = i,bag.fraction = 0.75,family ="laplace",step.size=100 )
  assign(modelNames, gbmModels)

  #training data
  #predict values for the training data set
  predTrainGbm<-paste("gbmTrainPrediction", i, sep = "")
  gbmTrainPrediction <- predict.gbm(gbmModels,train,n.trees=gbmModels$gbm.call$best.trees)
  assign(predTrainGbm,gbmTrainPrediction)
  #calculate mape for the predictions
  mapeTrain<-paste("mapeGbmTrain", i, sep = "")
  mapeTrainGbm<-regr.eval(train$Close,gbmTrainPrediction,stats = "mape")
  assign(mapeTrain,mapeTrainGbm)

  train<-cbind(train,predTrainGbm,mapeTrain)

  #creating plots of actual vs predicted values
  imageGbmName<-paste(fileCalculated,"Gbm Prediction",i,".png")
  png(imageGbmName)

  par(mfrow=c(2,1))
  plot(train$Close,type="l",col="red",main = "Training set") 
  lines(gbmTrainPrediction,col="green")

  plot(test$Close,type="l",col="red",main = "Test Set") 
  lines(gbmTestPrediction,col="green")


  dev.off()
}