
Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
# computation of h-depths
data <- cbind(rnorm(40), rnorm(40))
xy <- cbind(runif(50,-2,2),runif(50,-2,2))
bagplot(data); text(xy, as.character(hdepth(xy,data)))
# }
Run the code above in your browser using DataLab