# Compute the sample quantile level.
set.seed(12345)
x <- qnorm(p = 0.75, mean = 0, sd = 1, lower.tail = TRUE, log.p = FALSE)
y <- rnorm(n = 1000, mean = 0, sd = 1)
print(quantile_level(x = x, y = y))
Run the code above in your browser using DataLab