Wooldridge Source: Economic Report of the President, 1997, Tables B-4, B-20, B-61, and B-71. Data loads lazily.
data('inven')A data.frame with 37 observations on 13 variables:
year: 1959-1995
i3: 3 mo. T-bill rate
inf: CPI inflation rate
inven: inventories, billions '92 $
gdp: GDP, billions '92 $
r3: real interest: i3 - inf
cinven: inven - inven[_n-1]
cgdp: gdp - gdp[_n-1]
cr3: r3 - r3[_n-1]
ci3: i3 - i3[_n-1]
cinf: inf - inf[_n-1]
ginven: log(inven) - log(inven[_n-1])
ggdp: log(gdp) - log(gdp[_n-1])
https://www.cengage.com/cgi-wadsworth/course_products_wp.pl?fid=M20b&product_isbn_issn=9781111531041
pages 408, 444, 643, 830
str(inven)
#> 'data.frame': 37 obs. of 13 variables:
#> $ year : int 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 ...
#> $ i3 : num 3.41 2.93 2.38 2.78 3.16 ...
#> $ inf : num 0.7 1.7 1 1 1.3 ...
#> $ inven : num 401 412 421 441 459 ...
#> $ gdp : num 2212 2262 2310 2449 2554 ...
#> $ r3 : num 2.71 1.23 1.38 1.78 1.86 ...
#> $ cinven: num NA 10.6 8.9 20 18.1 ...
#> $ cgdp : num NA 49.4 48.1 139.3 104.9 ...
#> $ cr3 : num NA -1.48 0.15 0.4 0.08 ...
#> $ ci3 : num NA -0.48 -0.55 0.4 0.38 ...
#> $ cinf : num NA 1 -0.7 0 0.3 ...
#> $ ginven: num NA 0.0261 0.0214 0.0464 0.0402 ...
#> $ ggdp : num NA 0.0221 0.021 0.0586 0.0419 ...
#> - attr(*, "time.stamp")= chr "25 Jun 2011 23:03"