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