if (interactive()){
# 2d measures
# s <- scagnostics2d(oliveAcids)
# nav <- l_ng_ranges(s, color=olive$Area)
# 1d measures
scale01 <- function(x){(x-min(x))/diff(range(x))}
m1d <- measures1d(sapply(iris[,-5], scale01),
mean=mean, median=median, sd=sd,
q1=function(x)as.vector(quantile(x, probs=0.25)),
q3=function(x)as.vector(quantile(x, probs=0.75)))
m1d()
nav <- l_ng_ranges(m1d, color=iris$Species)
}
Run the code above in your browser using DataLab