# NOT RUN {
RL_Update_Output <- RL_ML_Update(
ExperimentGrid = ExperimentGrid,
ModelRun = run,
ModelType = "classification",
NEWGrid = NewGrid,
NewPerformance = NewPerformance,
BestPerformance = BestPerformance,
TrialVector = Trials,
SuccessVector = Successes,
GridIDS = GridIDs,
BanditArmsCount = BanditArmsN,
RunsWithoutNewWinner = RunsWithoutNewWinner,
MaxRunsWithoutNewWinner = MaxRunsWithoutNewWinner,
MaxNumberModels = MaxNumberModels,
MaxRunMinutes = MaxRunMinutes,
TotalRunTime = TotalRunTime,
BanditProbabilities = 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