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