# NOT RUN {
RL_Update_Output <- RL_Update(
ExperimentGrid = ExperimentGrid,
MetricSelection = MetricSelection,
ModelRun = run,
NEWGrid = NewGrid,
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