# load data
data(wdbc)
wdbc <- wdbc[1:30, ]
# estimate density (use xmin to indicate positive support)
fit <- kdevine(wdbc[, 5:7], xmin = rep(0, 3))
# evaluate density estimate
dkdevine(c(1000, 0.1, 0.1), fit)
Run the code above in your browser using DataLab