# NOT RUN {
RL_Update_Output <- RL_ML_Update(
  ModelType = "classification",
  grid_eval_metric = grid_eval_metric.,
  Iteration = run,
  NewGrid. = NewGrid,
  NewPerformance. = NewPerformance,
  BestPerformance. = BestPerformance,
  Trials. = Trials,
  Successes. = Successes,
  GridIDs. = GridIDs,
  BanditArmsN. = BanditArmsN,
  RunsWithoutNewWinner. = RunsWithoutNewWinner,
  MaxRunsWithoutNewWinner. = MaxRunsWithoutNewWinner,
  MaxNumberModels. = MaxNumberModels,
  MaxRunMinutes. = MaxRunMinutes,
  TotalRunTime. = TotalRunTime,
  BanditProbs. = BanditProbs)
BanditProbs <- RL_Update_Output[["BanditProbs"]]
Trials <- RL_Update_Output[["Trials"]]
Successes <- RL_Update_Output[["Successes"]]
NewGrid <- RL_Update_Output[["NewGrid"]]
# }
Run the code above in your browser using DataLab