if (FALSE) {
data(iris)
# 1) Forward stepwise for numeric response (adjusted R^2 criterion)
fs <- daltoolbox::fit(fs_fss("Sepal.Length"), iris)
fs$features
# 2) Subset to selected features + target
data_fss <- daltoolbox::transform(fs, iris)
head(data_fss)
}
Run the code above in your browser using DataLab