More than natural variation?

Let's see if the apparent trend in the plot is something more than natural variation. Fit a linear model called m_bty to predict average professor score by average beauty rating and add the line to your plot using abline(m_bty).

This exercise is part of the course

Data Analysis and Statistical Inference

View Course

Exercise instructions

Construct the linear model m_bty.
Add the linear model to the plot with the help of abline(m_bty).
Write out the equation for the linear model yourself, and interpret the slope.

Hands-on interactive exercise

Have a go at this exercise by completing this sample code.

# The evals data frame is already loaded into the workspace

# Your initial plot:
plot(evals$score ~ jitter(evals$bty_avg))

# Construct the linear model:


# Plot your linear model on your plot:

Edit and Run Code