pargam(lmoms(abs(rnorm(20, mean=10))))
## Not run:
# pargam(lmomgam(vec2par(c(0.3,0.4,+1.2), type="gam")), p=3)$para
# pargam(lmomgam(vec2par(c(0.3,0.4,-1.2), type="gam")), p=3)$para
# # mu sigma nu
# # 0.2999994 0.3999990 1.1999696
# # 0.2999994 0.4000020 -1.2000567## End(Not run)
Run the code above in your browser using DataLab