# NOT RUN {
if (requireNamespace("AER", quietly = TRUE)) {
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, instruments = TRUE)
augment(ivr)
augment(ivr, data = CigarettesSW)
augment(ivr, newdata = CigarettesSW)
glance(ivr)
}
# }
Run the code above in your browser using DataLab