The R-squared for this tired and overly simple model is
model1 <- lm(hp ~ mpg, data = mtcars) round(summary(model1)$r.squared, 3)
## [1] 0.602
As we can see, MPG is a great predictor of horsepower. But, mtcars has so many other features for us to take advantage of!