无法在R中清除具有自己功能的异常值

Question

我试图编写一个简单的函数来清理异常值中的数据。 功能如下：

replaceOutliers <- function(data){
    Q1 <- quantile(data,0.25)
    Q3 <- quantile(data,0.75)
    IQR <- Q3 - Q1
    upperWhisker <- Q3 + 1.5*IQR
    lowerWhisker <- Q1 - 1.5*IQR

    data[data > upperWhisker] <- upperWhisker
    data[data < lowerWhisker] <- lowerWhisker
    return (data)
}

然后我将其复制到控制台并使用replaceOutliers（CIR_WORK $ Mean.RED）语句进行调用。但没有任何事情发生。 CIR_WORK $ Mean.RED保持不变。 我认为函数的步骤是正确的，因为当我在控制台中逐个执行它时，结果就像我想要的那样。但不是功能。谁知道为什么？

干杯