# NOT RUN {
library(AER)
data("CigarettesSW", package = "AER")
ivr <- ivreg(
log(packs) ~ income | population,
data = CigarettesSW,
subset = year == "1995"
)
summary(ivr)
tidy(ivr)
tidy(ivr, conf.int = TRUE)
tidy(ivr, conf.int = TRUE, exponentiate = TRUE)
augment(ivr)
glance(ivr)
# }
Run the code above in your browser using DataLab