x <- runif(20)
near_quantile(x, 0.5, 0.05)
near_quantile(x, c(0.25, 0.5, 0.75), 0.05)
library(dplyr)
heights %>%
features(height_cm, list(min = min)) %>%
mutate(min_near_median = near_quantile(min, 0.5, 0.01)) %>%
filter(min_near_median)
heights %>%
features(height_cm, list(min = min)) %>%
mutate(min_near_q3 = near_quantile(min, c(0.25, 0.5, 0.75), 0.01)) %>%
filter(min_near_q3)
Run the code above in your browser using DataLab