Wooldridge Source: I collected these data from two sources, the 1992 Statistical Abstract of the United States (Tables 1009, 1012) and A Digest of State Alcohol-Highway Safety Related Legislation, 1985 and 1990, published by the U.S. National Highway Traffic Safety Administration. Data loads lazily.
data('traffic1')A data.frame with 51 observations on 13 variables:
state:
admn90: =1 if admin. revoc., '90
admn85: =1 if admin. revoc., '85
open90: =1 if open cont. law, '90
open85: =1 if open cont. law, '85
dthrte90: deaths per 100 mill. miles, '90
dthrte85: deaths per 100 mill. miles, '85
speed90: =1 if 65 mph, 1990
speed85: =0 always
cdthrte: dthrte90 - dthrte85
cadmn: admn90 - admn85
copen: open90 - open85
cspeed: speed90 - speed85
https://www.cengage.com/cgi-wadsworth/course_products_wp.pl?fid=M20b&product_isbn_issn=9781111531041
In addition to adding recent years, this data set could really use state-level tax rates on alcohol. Other important law changes include defining driving under the influence as having a blood alcohol level of .08 or more, which many states have adopted since the 1980s. The trend really picked up in the 1990s and continued through the 2000s.
Used in Text: pages 467-468, 688?
str(traffic1)
#> 'data.frame': 51 obs. of 13 variables:
#> $ state : chr "AL" "AK" "AZ" "AR" ...
#> $ admn90 : int 0 1 1 0 1 1 1 1 1 1 ...
#> $ admn85 : int 0 1 0 0 0 1 0 1 1 0 ...
#> $ open90 : int 0 1 0 0 1 0 0 0 0 1 ...
#> $ open85 : int 0 0 0 0 1 0 0 0 0 0 ...
#> $ dthrte90: num 2.6 2.1 2.5 2.9 2 ...
#> $ dthrte85: num 2.9 3.2 4.4 3.4 2.6 ...
#> $ speed90 : int 1 0 1 1 1 1 0 0 0 1 ...
#> $ speed85 : int 0 0 0 0 0 0 0 0 0 0 ...
#> $ cdthrte : num -0.3 -1.1 -1.9 -0.5 -0.6 ...
#> $ cadmn : int 0 0 1 0 1 0 1 0 0 1 ...
#> $ copen : int 0 1 0 0 0 0 0 0 0 1 ...
#> $ cspeed : int 1 0 1 1 1 1 0 0 0 1 ...
#> - attr(*, "time.stamp")= chr "25 Jun 2011 23:03"