x <- rvec(list(c(0, 0.25),
c(0.5, 0.99)))
dbeta_rvec(x, shape1 = 1, shape2 = 1)
pbeta_rvec(x, shape1 = 1, shape2 = 1)
rbeta_rvec(n = 2,
shape = 1:2,
shape2 = 1,
n_draw = 1000)
Run the code above in your browser using DataLab