data(car)
dpl.lshade <- lshade(NP = 20, G = 25, data = car, class.name = names(car)[7], c = 0.1,
structure = "tan", pB = 0.05, edgelist = NULL, verbose = 5)
p <- predict(dpl.lshade$Best, car)
accuracy(p, car$class)
Run the code above in your browser using DataLab