# Compute and plot some halfspace depth contours of a two-dimensional dataset.
# The returned object is a ggplot2 object that may be edited
# using standard ggplot2 commands.
data(cardata90)
Result <- depthContour(x = cardata90,
alpha = c(0.125, 0.25))
plot <- plotContours(x = cardata90, depthContour = Result)
plot + ylab("Engine displacement") + xlab("Weight in pounds")
# One may consider different depth functions such as projection depth
# by changing the input parameter 'type' in the depthcontour function.
Result <- depthContour(x = cardata90,
alpha = c(0.35, 0.55),
type = "projdepth")
plotContours(x = cardata90, depthContour = Result)
Run the code above in your browser using DataLab