# Evaluates lower tail.
visualize.beta(stat = 1, alpha = 2, beta = 3, section = "lower")
# Evaluates bounded region.
visualize.beta(stat = c(.5,1), alpha = 4, beta = 3, section = "bounded")
# Evaluates upper tail.
visualize.beta(stat = 1, alpha = 2, beta = 3, section = "upper")
Run the code above in your browser using DataLab