data(grave)
kd = kdest(grave, nsim = 9)
ci = confenv(kd, level = 0.9)
plot(kd, legend = FALSE, main = "")
lines(ci, lty = 2)
legend("topleft", legend = c("observed", "average", "max/min", "90% conf. bands"),
lty = c(1, 2, 1, 3), col = c("black", "red", "grey", "black"))Run the code above in your browser using DataLab