# NOT RUN {
A_pois <- rpois(100, 5)
B_pois <- rpois(100, 4.7)
AB1 <- bayesTest(A_pois, B_pois, priors = c('shape' = 25, 'rate' = 5), distribution = 'poisson')
plot(AB1)
# }
# NOT RUN {
plot(AB1, percentLift = 5)
# }
# NOT RUN {
# }
# NOT RUN {
p <- plot(AB1)
p$posteriors$Lambda
# }
# NOT RUN {
p$posteriors$Lambda + ggtitle('yolo') # modify ggplot2 object directly
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab