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