# NOT RUN {
# }
# NOT RUN {
# .sampleData is special function for creating
# data for testing conditional denisty estimators
data <- DepthProc:::.sampleData(1:5, 100)
x <- data[, 1]
y <- data[, 2]
plot(x, y)
dep <- depthDensity(x, y)
plot(dep, type = "raw")
plot(dep, type = "depth")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab