set.seed(1)
dlambdap(11.1, df = 9, ncp = 10) # 0.1294471
plambdap(11.1, df = 9, ncp = 10) # 0.7134134
qlambdap(0.01, df = 9, ncp = 10) # 4.245347
rv <- rlambdap(100, df = 50, ncp = 2)
mean(rv) # 2.077029
pv <- plambdap(rv, df = 50, ncp = 2)
summary(pv)
# Min. 1st Qu. Median Mean 3rd Qu. Max.
# 0.01715 0.31579 0.51642 0.52259 0.74839 0.99703
qv <- qlambdap(pv, df = 50, ncp = 2)
summary(qv)
# Min. 1st Qu. Median Mean 3rd Qu. Max.
# -0.1677 1.5007 2.0319 2.0770 2.6726 4.7966
# absolute difference between the original random vector and
# the quantile vector calculated from the probabilities of the
# original random vector (< 1e-12)
max(abs(qv - rv)) # 0.0000000000002498002
Run the code above in your browser using DataLab