R/removeOutliers.r

In FREddyPro: Post-Processing EddyPro Full Output File

Defines functions removeOutliers

Documented in removeOutliers

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

Try the FREddyPro package in your browser