Устранение выбросов в списках R

Question

Я был бы очень признателен за помощь, в настоящее время я использую этот код:

no_anomalies <- function(x, offset = 0.0005, na.rm = TRUE){
  x.bar <- mean(x, na.rm = na.rm)
  away <- x < (x.bar - offset) | x > (x.bar + offset)
  is.na(x) <- which(away)
  x
}
newdata <- lapply(Master, function(DF){
  is_num <- sapply(DF, is.numeric)
  DF[is_num] <- lapply(DF[is_num], no_anomalies, offset = 0.0005)
  DF
})

Однако это сортировка данных в целом, и все мои столбцы сильно различаются, и поэтому я действительно хотел бы найти способ сортировать каждый столбец независимо.

Спасибо, Ta sh