### bivariate example - restricted iris dataset
library(MASS)
data(iris)
ir <- iris[,c(1,2)]
ir.gr <- iris[,5]
compare.kda.cv(ir, ir.gr, bw="plug-in", pilot="samse")
compare.pda.cv(ir, ir.gr, type="line")
compare.pda.cv(ir, ir.gr, type="quad")Run the code above in your browser using DataLab