dist.list("gpa")
if (FALSE) {
# Build an L-moment object
LM <- vec2lmom(c(10000,1500,0.3,0.1,0.04))
lm2 <- lmorph(LM) # convert to vectored format
lm1 <- lmorph(lm2) # and back to named format
dist <- dist.list()
# Demonstrate that lmom2par internally converts to needed L-moment object
for(i in 1:length(dist)) {
# Skip Cauchy and Slash (need TL-moments).
# Skip AEP4, Kumaraswamy, LMRQ, Student t (3-parameter), Truncated Exponential
# are skipped because each is inapplicable to the given L-moments.
# The Eta-Mu and Kappa-Mu are skipped for speed.
if(dist[i] == 'aep4' | dist[i] == 'cau' | dist[i] == 'emu' | dist[i] == 'gep' |
dist[i] == 'kmu' | dist[i] == 'kur' | dist[i] == 'lmrq' | dist[i] == 'tri' |
dist[i] == 'sla' | dist[i] == 'st3' | dist[i] == 'texp') next
print(lmom2par(lm1,type=dist[i])$para)
print(lmom2par(lm2,type=dist[i])$para)
}
}
Run the code above in your browser using DataLab