ts <- ts_bands(100)
graphics::plot(x = ts$q,
y = ts$upper,
type = "l",
xlim = c(0, 1),
ylim = c(0, 1),
xlab = "Theoretical Quantiles",
ylab = "Empirical Quantiles")
graphics::lines(x = ts$q, y = ts$lower)
graphics::lines(x = ts$q, y = ts$q, lty = 2)
Run the code above in your browser using DataLab