R/find_outliers.R

Defines functions find_outliers

Documented in find_outliers

#' find_outliers
#'
#' given a vector, find outliers
#'
#' @param hi
#'
#' @return hi
#'
#' @examples
#' hi
#'
#' @export

find_outliers <- function(y, coef = 1.5) {
  qs <- c(0, 0.25, 0.5, 0.75, 1)
  stats <- as.numeric(quantile(y, qs))
  iqr <- diff(stats[c(2, 4)])

  outliers <- y < (stats[2] - coef * iqr) | y > (stats[4] + coef * iqr)

  return(outliers)
}
soogs/sparks documentation built on May 17, 2019, 3:14 a.m.