Construirea și evaluarea modelelor cu tidymodels

Reducerea dimensionalității în R

Matt Pickard

Owner, Pickard Predictives, LLC

Procesul de ajustare a modelului

primul pas al ajustării modelului este împărțirea datelor

Reducerea dimensionalității în R

Procesul de ajustare a modelului

al doilea pas al ajustării modelului este pregătirea datelor

Reducerea dimensionalității în R

Procesul de ajustare a modelului

al treilea pas al ajustării modelului este ajustarea efectivă a modelului

Reducerea dimensionalității în R

Procesul de ajustare a modelului

al patrulea pas al ajustării modelului este evaluarea modelului

Reducerea dimensionalității în R

Ajustarea modelelor cu tidymodels

tidymodels oferă funcții pentru împărțirea datelor în seturi de antrenament și testare

Reducerea dimensionalității în R

Ajustarea modelelor cu tidymodels

rețetele tidymodels au funcții pentru crearea pașilor de preprocesare a datelor

Reducerea dimensionalității în R

Ajustarea modelelor cu tidymodels

tidymodels oferă funcții pentru ajustarea diferitelor modele în flux de lucru

Reducerea dimensionalității în R

Împărțirea datelor în seturi de antrenament și testare

split <- initial_split(credit_df, prop = 0.8, strata = credit_score)


train <- split %>% training()


test <-  split %>% testing()
Reducerea dimensionalității în R

Crearea unei rețete și a unui model

feature_selection_recipe <- 
  recipe(credit_score ~ ., data = train) %>%

  step_filter_missing(all_predictors(), threshold = 0.5) %>%

  step_scale(all_numeric_predictors()) %>%

  step_nzv(all_predictors()) %>%

  prep()

lr_model <- logistic_reg() %>%

  set_engine("glm")
Reducerea dimensionalității în R

Crearea și ajustarea fluxului de lucru

credit_wflow <- workflow() %>%

  add_recipe(feature_selection_recipe) %>%

  add_model(lr_model)


credit_fit <- 
  credit_wflow %>% fit(data = train)
Reducerea dimensionalității în R

Evaluarea modelului

# Predict test data
credit_pred_df <- predict(credit_fit, test) %>% 
  bind_cols(test %>% select(credit_score))


# Evaluate F score
f_meas(credit_pred_df, credit_score, .pred_class)

# A tibble: 1 × 3
  .metric .estimator .estimate
  <chr>   <chr>          <dbl>
1 f_meas  macro          0.519
Reducerea dimensionalității în R

Explorarea rețetei cu tidy()

tidy(feature_selection_recipe, number = 1)

# A tibble: 2 × 2
  terms            id                  
  <chr>            <chr>               
1 age              filter_missing_gVVfc
2 outstanding_debt filter_missing_gVVfc
Reducerea dimensionalității în R

Explorarea modelului cu tidy()

# Display model estimates
tidy(credit_fit)

# A tibble: 44 × 5
   term                estimate std.error statistic p.value
   <chr>                  <dbl>     <dbl>     <dbl>   <dbl>
 1 (Intercept)           2.88       0.918    3.13   0.00173
 2 monthAugust          -0.449      0.236   -1.91   0.0565 
 3 monthFebruary        17.7      677.       0.0262 0.979  
 4 monthJanuary         17.7      661.       0.0268 0.979  
 ...                    ...       ...        ...    ...
Reducerea dimensionalității în R

Să exersăm!

Reducerea dimensionalității în R

Preparing Video For Download...