# NOT RUN {
data(wdbc, package = "kdecopula") # load data
u <- VineCopula::pobs(wdbc[, 5:7], ties = "average") # rank-transform
# }
# NOT RUN {
# estimate density
fit <- kdevinecop(u)
# contour matrix
contour(fit)
# }
Run the code above in your browser using DataLab