if (FALSE) {
par(mfrow = c(2,2))
data(hemophilia)
depth.contours(hemophilia[,1:2], depth = "none", main = "data")
for (depth in c("zonoid", "Mahalanobis", "projection", "spatial")){
depth.contours(hemophilia[,1:2], depth = depth, main = depth)
}
for (depth in c("halfspace", "simplicial", "simplicialVolume")){
depth.contours(hemophilia[,1:2], depth = depth, main = depth, exact = T)
}
}
Run the code above in your browser using DataLab