# NOT RUN {
## Obtain similar fit to \code{\link{pre}}:
gpe.rules <- gpe(Ozone ~ ., data = airquality[complete.cases(airquality),],
base_learners = list(gpe_linear(), gpe_trees()))
gpe.rules
## Also include products of hinge functions using MARS:
gpe.hinge <- gpe(Ozone ~ ., data = airquality[complete.cases(airquality),],
base_learners = list(gpe_linear(), gpe_trees(), gpe_earth()))
# }
Run the code above in your browser using DataLab