использование SD для поиска выбросов

Question

Я пытаюсь найти значения, отличные от среднего на 3sd. Я написал функцию ниже, но получаю сообщение об ошибке: iif (result> sds) print (outlier): пропущенное значение, где требуется TRUE / FALSE.

Мои данные имеют значения NA, поэтому функция пытается проанализировать Значения NA как сказать na.rm = TRUE вид команды в функции?

findingoutlier<- function (data, cutoff=3, na.rm=TRUE){
  sd <- sd(data)
  mean <- mean(data)
  sds <- mean + (sd * cutoff)
  result <- lapply(data, sd)
  outlier <- if (result > sds)
    print (outlier)
}