is_outlier.R

is_outlier <- function(x) {
    # Computes a bootstrapped confidence interval
    # INPUT: 
    #    x: a numeric vector
    # OUTPUT:
    #    a boolean vector, indicating if each value in x is an outlier
    
    return(x < quantile(x, 0.25) - 1.5 * IQR(x) | x > quantile(x, 0.75) + 1.5 * IQR(x))
}