## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(featR)

## -----------------------------------------------------------------------------
relevant <- fs_supervised(mtcars, target = "mpg", threshold = 0.5)
relevant

## -----------------------------------------------------------------------------
round(sort(relevant$scores, decreasing = TRUE), 2)

## -----------------------------------------------------------------------------
pruned <- fs_correlation(mtcars[, selected(relevant)], threshold = 0.8)
pruned$details$dropped

## -----------------------------------------------------------------------------
summary(pruned)

## -----------------------------------------------------------------------------
keep <- selected(pruned)
keep
fit <- lm(reformulate(keep, response = "mpg"), data = mtcars)

## ----eval = requireNamespace("glmnet", quietly = TRUE)------------------------
lasso <- fs_lasso(mtcars, target = "mpg", seed = 1)
selected(lasso)