age_output <- decomp_age(us_females,
method = "arriaga3", age_col = "Age", e1 = "e1x",
e2 = "e2x", l1 = "l1x", l2 = "l2x"
)
plot_age(age_output, method = "arriaga3", plot_type = "segment_dodge")
plot_age(age_output, method = "arriaga3", plot_type = "segment_dodge", line = TRUE)
plot_age(age_output, method = "arriaga3", plot_type = "total", line = TRUE)
Run the code above in your browser using DataLab