# NOT RUN {
# load data
data(wdbc)
# }
# NOT RUN {
# 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