rifreg <- rifreg(
formula = log(wage) ~ union +
nonwhite +
married +
education +
experience,
data = men8385,
statistic = "quantiles",
probs = seq(0.1, 0.9, 0.1),
weights = weights
)
plot(rifreg)
plot(rifreg, varselect = c("age", "unionyes"), confidence_level = 0.1)
Run the code above in your browser using DataLab