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