Solutions for 04_regularization

[leahhrlee]

Solutions for 04_regularization should include:

Import data

penguins <- palmerpenguins::penguins %>% filter(!is.na(bill_length_mm))

Set seed

set.seed(23)

Perform split

penguin_split <- penguins %>% initial_split(prop = 0.80) penguins_train <- training(penguin_split) penguins_test <- testing(penguin_split)

Participants will run into error if null values in bill_length_mm are not dropped

[leahhrlee]

If not filtered, this error will occur: "Error in if (nulldev == 0) stop("y is constant; gaussian glmnet fails at standardization step") : missing value where TRUE/FALSE needed"