powered by
SIQR(X, mode)
data <- rnorm(100, 10, 1) SIQR(data) SIQR(data, 2) sd(data) idata <- sample(50:80, 100, replace=TRUE) SIQR(idata) SIQR(idata, 2) sd(idata)
Run the code above in your browser using DataLab