para <- vec2par(c(140,4),type='gam') # build a gamma parent
F <- nonexceeds() # vector of nonexceedance probabilities
Q <- quagam(F,para) # the quantiles of parent distribution
# simulated are grey, parent is black
gen.freq.curves(10,para,nsim=15,asprob=TRUE,showparent=TRUE,col=8)
Run the code above in your browser using DataLab