# NOT RUN {
x <- rnorm(30,10,2)
varLmoments(x)
varLmoments(x, FALSE)
varLCV(x)
varLCA(x)
varLkur(x)
data(hydroSIMN)
x <- annualflows["dato"][,]
cod <- annualflows["cod"][,]
dvarLmom <- function(x) {diag(varLmoments(x))}
sapply(split(x,cod),dvarLmom)
# }
Run the code above in your browser using DataLab