# NOT RUN {
A_binom <- rbinom(100, 1, .5)
B_binom <- rbinom(100, 1, .6)
AB1 <- bayesTest(A_binom, B_binom, priors = c('alpha' = 1, 'beta' = 1), distribution = 'bernoulli')
binomialBandit <- banditize(AB1)
# }
# NOT RUN {
deployBandit(binomialBandit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab