# NOT RUN {
exp(dpareto3(1, min = 10, 3, 4, log = TRUE))
p <- (1:10)/10
ppareto3(qpareto3(p, min = 10, 2, 3), min = 10, 2, 3)
## mean
mpareto3(1, min = 10, 2, 3)
## case with 1 - order/shape > 0
levpareto3(20, min = 10, 2, 3, order = 1)
## case with 1 - order/shape < 0
levpareto3(20, min = 10, 2/3, 3, order = 1)
# }
Run the code above in your browser using DataLab