Estimate the effect of seat belt use on fatalities

dio File Edit Code View Plots Session Build Debug Profile Tools Window Help O RStudio . - -| 4 Go to file/function . Addins . @ Untitled1* x @ Untitled2* x SeatBelts x of x Source on Save Run 5+ + |Source e .E 1 library(readr) SeatBelts library(lmtest) Loading required package: zoo Attaching package: 'zoo' The following objects are masked from 'package: base' : as . Date, as . Date . numeric Warning messages : 1: package 'Imtest' was built under R version 4.1.2 2: package 'zoo' was built under R version 4.1.2 > library(psych) Warning message: package 'psych' was built under R version 4.1.2 > Im(fatalityrate ~ sb_useage + speed65 + speed70 + ba08 + drinkage21 + In(income) + age, data = SeatBelts) Call : Im(formula = fatalityrate ~ sb_useage + speed65 + speed70 + ba08 + drinkage21 + In(income) + age, data = SeatBelts) Coefficients: (Intercept) sb_useage speed65 speed70 ba08 drinkage21 In(income) age 1.965e-01 4. 068e-03 1.479e-04 2. 404e-03 -1. 925e-03 7. 989e-05 -1. 814e-02 -7.220e-06