# The first three moment differences are zero because the GLO is only
# fit to these and not the higher moments.
lmr <- lmom.ub(rnorm(40))
para <- lmom2par(lmr, type = 'glo')
lmom.diff(par2lmom(para),lmr)
# The first two moment differences are zero because the Normal is only
# fit to these and not the higher moments.
lmr <- lmom.ub(rnorm(40))
lmr <- lmorph(lmr)
para <- parnor(lmr)
lmom.diff(lmomnor(para),lmr)
Run the code above in your browser using DataLab