# NOT RUN {
policy <- EpsilonGreedyPolicy$new(epsilon = 0.1)
bandit <- BasicBernoulliBandit$new(weights = c(0.6, 0.1, 0.1))
agent <- Agent$new(policy, bandit, name = "E.G.", sparse = 0.5)
history <- Simulator$new(agents = agent,
horizon = 10,
simulations = 10)$run()
# }
Run the code above in your browser using DataLab