# NOT RUN {
# To box in an area under a four-parameter Beta cumulative distribution with
# location parameters l = .25 and u = 75, and shape parameters
# alpha = 5 and beta = 3, from .4 to .6:
plot(NULL, xlim = c(0, 1), ylim = c(0, 1))
coords <- Beta.gfx.poly.cdf(from = .4, to = .6, by = .001, alpha = 5,
beta = 3, l = .25, u = .75)
polygon(coords)
# }
Run the code above in your browser using DataLab