y = "First year (college) grade point average"
  )

mod &lt;- lm(fy_gpa ~ sat_v, data = satgpa)
tidy(mod)

# Math scores
ggplot(satgpa, aes(x = sat_m, fy_gpa)) +
  geom_point() +
  geom_smooth(method = "lm") +
  labs(
    x = "Math SAT percentile",
    y = "First year (college) grade point average"
  )

mod &lt;- lm(fy_gpa ~ sat_m, data = satgpa)
tidy(mod)
</code></pre>

</main>

</div>
</body></html>
