Neem een snelle blik op de fit van je modellen

In deze oefening gebruik je glance() om te berekenen hoe goed de lineaire modellen per land op de data passen.

Deze oefening maakt deel uit van de cursus

Machine Learning in de tidyverse

Oefeninstructies

Voeg een kolom (fit) toe met de fitstatistieken voor elk model aan de gap_models-dataframe en sla dit op als model_perf_nested.
Vereenvoudig deze dataframe met unnest() om de fitstatistieken van elk model te extraheren en sla dit op als model_perf.
Gebruik tot slot head() om een eerste kijkje te nemen in model_perf.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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(___)

Code bewerken en uitvoeren