quantile(x, probs = seq(0,1,.25), na.rm = F)
quantile(car.miles) # five number summaryquantile(testscores[,1], c(.33,.67)) # 33% and 67% quantiles of # data from testscores
quar <- diff(quantile(testscores[,1], c(.25, .75))) # interquartile range
# create function iqr iqr <- function (x) diff(quantile(x, c(.25, .75))) iqr(car.miles) # returns 23