# NOT RUN {
x <- seq(0, 1, length.out = 21)
polllg(x)
polllg(x, alpha = 2, beta = .2, G = pbeta, shape1 = 1, shape2 = 2)
dolllg(x, alpha = 2, beta = .2, G = pbeta, shape1 = 1, shape2 = 2)
curve(dolllg, -3, 3)
qolllg(x, alpha = 2, beta = .2, G = pbeta, shape1 = 1, shape2 = 2)
n <- 10
rolllg(n, alpha = 2, beta = .2, G = pbeta, shape1 = 1, shape2 = 2)
holllg(x, alpha = 2, G = pbeta, beta = .2, shape1 = 1, shape2 = 2)
curve(holllg, -3, 3)
# }
Run the code above in your browser using DataLab