NHEMO(data, CostMatrix, gens = 50, popsize = 50, max_nodes = 10, ngens = 14, bound = 10^-10, init_prob = 0.8, ps = c("tournament", "roulette", "winkler"), tournament_size = 4, crossover = c("standard", "brood", "poli"), brood_size=4, crossover_prob=0.5, mutation_prob=0.5, CV=5, vim=0, ...)Termination criteria are the maximal amount of generations and the Online Convergence Detection (OCD) proposed by Wagner and Trautmann (2010). Here, OCD uses the dominated hypervolume as quality criterion. If its variance over the last g generations is significantly below a given threshold L according to the one-sided $\chi^2$-variance test OCD stops the run. We followed the suggestion of Wagner and Trautmann (2010) and considered their parameter settings as default values.
Missing data in the grouping variable or the explanatory variables are excluded from the analysis automatically.
NHEMO does not work with missing data in CostMatrix. Costs of all explanatory variables set to 1 results in optimizing the amount of explanatory variables in the tree learner as second objective.
W.A. Tackett. Recombination, selection und the genetic construction of computer programs. PhD thesis, University of Southern California, 1994.
T. Wagner and H. Trautmann. Online convergence detection for evolutionary multiobjective algorithms revisited. In: IEEE Congress on Evolutionary Computation, 1-8, 2010.
NHEMOtree
# Simulation of data and costs
d <- Sim_Data(Obs=200)
CostMatrix<- Sim_Costs()
# NHEMO calculations with function NHEMOtree and type="NHEMO"
res<- NHEMOtree(method="NHEMO", formula=Y2~., data=d, CostMatrix=CostMatrix,
gens=5, popsize=10,
max_nodes=5, ngens=5, bound=10^-10, init_prob=0.8,
ps="tournament", tournament_size=4, crossover="standard",
crossover_prob=0.1, mutation_prob=0.1,
CV=5, vim=1)
res
Run the code above in your browser using DataLab