# NOT RUN {
# Import data.
fname <- system.file("extdata", "finndiane.txt", package = "Numero")
dataset <- read.delim(file = fname)
# Calculate centers.
mu <- nroStatistic(dataset, method = "center")
print(mu)
# Calculate inter-quartile ranges.
iqr <- nroStatistic(dataset, method = "iqr")
print(iqr)
# }
Run the code above in your browser using DataLab