CigarettesSW: Cigarette Consumption Panel Data

In gragusa/ase: Collection of useful functions for "Applied Statistics and Econometrics"

Description

Panel data on cigarette consumption for the 48 continental US States from 1985–1995.

Usage

data("CigarettesSW")

Format

A data frame containing 48 observations on 7 variables for 2 periods.

state

Factor indicating state.

year

Factor indicating year.

cpi

Consumer price index.

population

State population.

packs

Number of packs per capita.

income

State personal income (total, nominal).

tax

Average state, federal and average local excise taxes for fiscal year.

price

Average price during fiscal year, including sales tax.

taxs

Average excise taxes for fiscal year, including sales tax.

Source

Online complements to Stock and Watson (2007).

http://wps.aw.com/aw_stock_ie_2/

References

Stock, J.H. and Watson, M.W. (2007). Introduction to Econometrics, 2nd ed. Boston: Addison Wesley.

See Also

StockWatson2007, CigarettesB

Examples

## 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)

gragusa/ase documentation built on May 17, 2019, 8:18 a.m.