powered by
rdplot(x, res, f = 0.8)
x <- runif(50, 0, 50) res <- rnorm(50) rdplot(x, res)
Run the code above in your browser using DataLab