# Contrived example
lmr <- lmom.ub(rnorm(20))
leftpara <- parnor(lmr)
rightpara <- pargev(lmr)
combined.median <- par2qua2(0.5,leftpara,rightpara)
combined.nonexceed <- par2cdf2(combined.median,leftpara,rightpara)
Run the code above in your browser using DataLab