Rで学ぶTree-Based ModelsによるMachine Learning
Sandro Raabe
Data Scientist
tree_depth?decision_tree

【単純モデル】
simple_spec <- decision_tree(tree_depth = 2) %>%
set_mode("regression")
simple_spec %>% fit(final_grade ~ .,
data = training_data)
【複雑モデル】
complex_spec <- decision_tree(tree_depth = 15) %>%
set_mode("regression")
complex_spec %>% fit(final_grade ~ .,
data = training_data)


学習データでの予測: 良好

mae(train_results,
estimate = .pred,
truth = final_grade)
# A tibble: 1 x 3
.metric .estimate
1 mae 0.204
テストデータでの予測: かけ離れている

mae(test_results,
estimate = .pred,
truth = final_grade)
# A tibble: 1 x 3
.metric .estimate
1 mae 0.947
学習・テストともに誤差が大きい:
bind_rows(training = mae(train_results, estimate = .pred, truth = final_grade),
test = mae(test_results, estimate = .pred, truth = final_grade),
.id = "dataset")
# A tibble: 2 x 4
dataset .metric .estimate
<chr> <chr> <dbl>
1 training mae 0.754
2 test mae 0.844

アウトオブサンプル/CV:
collect_metrics(cv_fits)
# A tibble: 1 x 3
.metric mean n
1 mae 2.432 5
インサンプル:
mae(training_pred,
estimate = .pred,
truth = final_grade)
# A tibble: 1 x 2
.metric .estimate
1 mae 0.228
インサンプル:
mae(training_pred, estimate = .pred, truth = final_grade)
# A tibble: 1 x 2
.metric .estimate
<chr> <dbl>
1 mae 2.432
Rで学ぶTree-Based ModelsによるMachine Learning