library(tidymodels) library(ISLR2) data(Hitters) nrow(Hitters) Hitters % set_engine(glmnet) ridge_fit

library(tidymodels) library(ISLR2)

data("Hitters") nrow(Hitters)

Hitters <- as_tibble(Hitters)

Hitters <- Hitters %>% tidyr::drop_na(Salary)

ridge_spec <- linear_reg(mixture = 0, penalty = 0) %>% set_mode("regression") %>% set_engine("glmnet")

ridge_fit <- fit(ridge_spec, Salary ~ ., data = Hitters)

Let us instead see what the estimates would be if the penalty was 11498. Store your output to tidy2