# NOT RUN {
# EXAMPLE 1
x <- mvrnorm(100, c(0, 0), diag(2))
depthPersp(x, depth_params = list(method = "Euclidean"))
# EXAMPLE 2
data(inf.mort, maesles.imm)
data1990 <- na.omit(cbind(inf.mort[, 1], maesles.imm[, 1]))
# }
# NOT RUN {
library(rgl)
depthPersp(data1990, plot_method = "rgl",
depth_params = list(method = "Projection"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab