ดูภาพรวมความพอดีของโมเดล

ในแบบฝึกหัดนี้ จะใช้ glance() เพื่อคำนวณว่าโมเดลเชิงเส้นแต่ละโมเดลพอดีกับข้อมูลของแต่ละประเทศได้ดีเพียงใด

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

Machine Learning ใน Tidyverse

คำแนะนำการฝึกหัด

เพิ่มคอลัมน์ (fit) ที่บรรจุสถิติความพอดีของแต่ละโมเดลเข้าไปใน data frame gap_models แล้วบันทึกเป็น model_perf_nested
ลดรูป data frame นี้โดยใช้ unnest() เพื่อดึงสถิติความพอดีของแต่ละโมเดลออกมา แล้วบันทึกเป็น model_perf
สุดท้าย ใช้ head() เพื่อดูตัวอย่างข้อมูลใน model_perf

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# Extract the fit statistics of each model into data frames
model_perf_nested <- gap_models %>% 
    mutate(fit = map(model, ~___(.x)))

# Simplify the fit data frames for each model    
model_perf <- model_perf_nested %>% 
    unnest(___)
    
# Look at the first six rows of model_perf
head(___)

แก้ไขและรันโค้ด