data("men8305")
flf_model <- log(wage) ~ union * (education + experience) + education * experience
flf_male_inequality <- dfl_decompose(flf_model,
data = men8305,
weights = weights,
group = year
)
plot(flf_male_inequality)
Run the code above in your browser using DataLab