R/removeOutliers.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Remove outliers from numeric vector
#' 
#' @param x Numeric vector
#' @param multiplier A numeric that is multiplied by inter-quantile range when determining uppermost and lowermost values beyond which datapoints are considered outliers.
#' @param na.rm Logical. Should missing values be removed
#' @export

removeOutliers = function(x,multiplier=1.5,na.rm=F){
  if(na.rm){
    x = x[!is.na(x)]
  }
  upperMost = unname(quantile(x,na.rm=T))[4] + multiplier*IQR(x,na.rm=T)
  lowerMost = unname(quantile(x,na.rm=T))[2] - multiplier*IQR(x,na.rm=T)
  return(x[x<=upperMost & x>=lowerMost])
}