Question: 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
Step by Step Solution
There are 3 Steps involved in it
1 Expert Approved Answer
Step: 1 Unlock
Question Has Been Solved by an Expert!
Get step-by-step solutions from verified subject matter experts
Step: 2 Unlock
Step: 3 Unlock
