## esempio campionario
require(nsRFA)
x <- rnorm(30) # random sample
res <- ARPIEM2012.Lmom.sample(x)
print(res)
## Not run:
# ## esempio regionale
# tab <- read.table("input_descrittori.txt", header=T, sep=";")
# descr <- tab[, "valore"]
# names(descr) <- tab[, "denominazione"]
# res <- ARPIEM2012.Lmom.reg(descr)
# print(res)
# ## End(Not run)
Run the code above in your browser using DataLab