n <- 100L
# the lower and upper bound are either scalar,
# or else vectors of length n
r_ltrc_elife(n = n, scale = 5, shape = -0.1,
lower = pmax(0, runif(n, -0.5, 1)),
upper = 5,
family = "gp")
Run the code above in your browser using DataLab