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