Поиск выбросов

remove_outliers.R

RStudio

Wed Feb 15 17:34:37 2017

#Источники:
#1. Казакова М.С., Луговская С.А., Долгов В.В. Референсные значения показателей общего анализа крови взрослого работающего населения // Клиническая лабораторная диагностика, - N6, - 2012. - с.43-49.
#2. http://stackoverflow.com/questions/4787332/how-to-remove-outliers-from-a-dataset

remove_outliers <- function(x, na.rm = TRUE) {
  qnt <- quantile(x, probs=c(.25, .75), na.rm = TRUE)
  H <- 1.5*(qnt[2]-qnt[1]) #IQR(x, na.rm = TRUE)
  y <- x
  y[x < (qnt[1] - H)] <- NA
  y[x > (qnt[2] + H)] <- NA
  y
}