# NOT RUN {
# Example with data(harvest)
## Phalanx-formation using a base classifier with 50 trees (default = 500)
# }
# NOT RUN {
set.seed(761)
model <- epx(x = harvest[, -4], y = harvest[, 4],
classifier.args = list(ntree = 50))
## Phalanx-membership of explanatory variables at the four stages
## of phalanx formation (0 means not in a phalanx)
model$PHALANXES
## Summary of the final phalanxes (matches above)
summary(model)
## Parallel computing
clusters <- parallel::detectCores()
cl <- parallel::makeCluster(clusters)
doParallel::registerDoParallel(cl)
set.seed(761)
model.par <- epx(x = harvest[, -4], y = harvest[, 4],
computing = "parallel")
parallel::stopCluster(cl)
# }
Run the code above in your browser using DataLab