Description Usage Format Source References See Also Examples
Panel data on cigarette consumption for the 48 continental US States from 1985–1995.
1 | data("CigarettesSW")
|
A data frame containing 48 observations on 7 variables for 2 periods.
Factor indicating state.
Factor indicating year.
Consumer price index.
State population.
Number of packs per capita.
State personal income (total, nominal).
Average state, federal and average local excise taxes for fiscal year.
Average price during fiscal year, including sales tax.
Average excise taxes for fiscal year, including sales tax.
Online complements to Stock and Watson (2007).
http://wps.aw.com/aw_stock_ie_2/
Stock, J.H. and Watson, M.W. (2007). Introduction to Econometrics, 2nd ed. Boston: Addison Wesley.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | ## Stock and Watson (2007)
## data and transformations
data("CigarettesSW")
CigarettesSW$rprice <- with(CigarettesSW, price/cpi)
CigarettesSW$rincome <- with(CigarettesSW, income/population/cpi)
CigarettesSW$tdiff <- with(CigarettesSW, (taxs - tax)/cpi)
c1985 <- subset(CigarettesSW, year == "1985")
c1995 <- subset(CigarettesSW, year == "1995")
## Equations 12.9--12.11
fm_s1 <- lm(log(rprice) ~ tdiff, data = c1995)
summary_rob(fm_s1)
fm_s2 <- lm(log(packs) ~ fitted(fm_s1), data = c1995)
fm_ivreg <- ivreg(log(packs) ~ log(rprice), ~ tdiff, data = c1995)
summary_rob(fm_ivreg)
fm_ivreg2 <- ivreg(log(packs) ~ log(rprice) + log(rincome), ~log(rincome) + tdiff, data = c1995)
fm_ivreg3 <- ivreg(log(packs) ~ log(rprice) + log(rincome), ~log(rincome) + tdiff + I(tax/cpi), data = c1995)
summary_rob(fm_ivreg2)
summary_rob(fm_ivreg3)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.