if (FALSE) {
data(iris)
# 1) LASSO requires a numeric response
fs <- daltoolbox::fit(fs_lasso("Sepal.Length"), iris)
fs$features # selected predictors with non-zero coefficients
# 2) Subset data to selected features + target
data_lasso <- daltoolbox::transform(fs, iris)
head(data_lasso)
}
Run the code above in your browser using DataLab