m1 <- measures1d(oliveAcids, 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)))
m1
m1()
m1(olive$palmitoleic>100)
m1('data')
m1('measures')
Run the code above in your browser using DataLab