# \donttest{
# Attach packages
library(rearrr)
# Set seed
set.seed(1)
# Create three vectors
x <- runif(10)
y <- runif(15)
z <- runif(20)
median_index(x, y, z)
quantile_index(x, y, z, prob = 0.2)
# Negate result
median_index(x, y, z, negate = TRUE)
# }
Run the code above in your browser using DataLab