# NOT RUN {
# Given
library(data.table)
dataSet <- data.table(num_col = 1:100)
# When
dataSet <- remove_percentile_outlier(dataSet, cols = "auto", percentile = 1, verbose = TRUE)
# Then extrem value is no longer in set
1 %in% dataSet[["num_col"]] # Is false
2 %in% dataSet[["num_col"]] # Is true
# }
Run the code above in your browser using DataLab