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