hw5

R Markdown

Install necessary packages (if not already installed)

install.packages(“tidymodels”)

Load required libraries

library(tidymodels)

Load the dataset (Using the default mtcars dataset for illustration)

data <- mtcars

Splitting the data into training (80%) and testing (20%) sets

set.seed(42) data_split <- initial_split(data, prop = 0.8) train_data <- training(data_split) test_data <- testing(data_split)

K-Fold Cross-Validation (Example: 10-Fold)

set.seed(42) cv_folds <- vfold_cv(train_data, v = 10)

Bootstrap resampling (Example: 100 bootstrap samples)

set.seed(42) bootstrap_samples <- bootstraps(train_data, times = 100)

Printing samples

cv_folds bootstrap_samples

Building a simple linear model to test resampling

model <- linear_reg() %>% set_engine(“lm”) %>% set_mode(“regression”)

Cross-validation using a workflow

workflow <- workflow() %>% add_model(model) %>% add_formula(mpg ~ .) %>% fit_resamples(cv_folds)

Reviewing results

collect_metrics(workflow)