Introduction

library(readr)
minimum_wage <- read_csv(system.file("extdata", "minimum_wage.csv", 
                                     package = "lmwr"))

## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   State = col_character(),
##   `Minimum Wage` = col_double(),
##   `Unemployment Rate` = col_double()
## )

summary(minimum_wage)

##     State            Minimum Wage    Unemployment Rate
##  Length:51          Min.   : 0.000   Min.   :2.100    
##  Class :character   1st Qu.: 7.250   1st Qu.:3.100    
##  Mode  :character   Median : 8.500   Median :3.500    
##                     Mean   : 8.121   Mean   :3.641    
##                     3rd Qu.:10.100   3rd Qu.:4.100    
##                     Max.   :14.000   Max.   :6.400

lm1 <- lm(`Unemployment Rate` ~ `Minimum Wage`,
          data = minimum_wage)
summary(lm1)[4]

## $coefficients
##                  Estimate Std. Error    t value    Pr(>|t|)
## (Intercept)    3.49960275 0.32494078 10.7699709 1.62017e-14
## `Minimum Wage` 0.01743224 0.03733321  0.4669365 6.42615e-01