powered by
qc(x, y, tau)
n <- 1000 x <- rnorm(n) y <- 2 * x + rt(n,df = 1) tau <- 1:9 / 10 qc(x = x, y = y, tau = tau)
Run the code above in your browser using DataLab