x <- c(1, 2, 3, 4, 5, 100)
is_outlier(x) # returns 6
x <- c(3, 4, 5, NA, 6, 7)
is_outlier(x, nmads = 1.5, type = "lower") # returns 4
x <- c(10, 20, NA, 15, 35)
is_outlier(x, nmads = 2, type = "higher") # returns 3, 5
Run the code above in your browser using DataLab