# Load data
data(car)
# Parameter learning with "LSHADE" variant
dpl.lshade <- lshade(NP = 40, G = 50, data = car, class.name = names(car)[7], c = 0.1,
structure = "tan", pB = 0.05, edgelist = NULL, verbose = 5)
# Print results
print(dpl.lshade)
if (FALSE) plot(dpl.lshade)
Run the code above in your browser using DataLab