将异常值归入低于均值的2 sd

Question

我正在尝试使用异常值数据，但将高于或低于向量的2个标准偏差的任何内容设置为高于或低于2个标准偏差。以下代码无效。

Trimmean <- function(fd, var){
      con <- fd %>%
        mutate(var= ifelse(var > mean(var) + (sd(var, na.rm = TRUE)*2), mean(var) + sd(var, na.rm = TRUE)*2,
                             ifelse(var < mean(var)-(sd(var, na.rm = TRUE)*2),mean(var) + (sd(var, na.rm = TRUE)*2), var)))
      return(var)
    }