# 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