R Markdown Cars Exercise

cars_data <- read.csv(file = "data/cars.csv", header = TRUE, sep = ",")
pairs(cars_data)

cor(cars_data$wt, cars_data$mpg)

## [1] -0.8676594

firstModel <- lm(mpg~wt, data = cars_data)
summary(firstModel)$coef

##              Estimate Std. Error   t value     Pr(>|t|)
## (Intercept) 37.285126   1.877627 19.857575 8.241799e-19
## wt          -5.344472   0.559101 -9.559044 1.293959e-10

print(c('R-squared', round(summary(firstModel)$r.sq,2)))

## [1] "R-squared" "0.75"