โมเดลที่ fit ดีที่สุดและแย่ที่สุด

# Plot a histogram of rsquared for the 77 models    
model_perf %>% 
  ggplot(aes(x = ___)) + 
  ___()  
  
# Extract the 4 best fitting models
best_fit <- model_perf %>% 
  slice_max(___, n = ___)

# Extract the 4 models with the worst fit
worst_fit <- model_perf %>% 
  slice_min(___, n = ___)