Obtaining results for all women entails running the in-union and
not-in-union model. In this case, fit_fp_c
returns a named list of
fits.
library(fpemlocal)
fitlist <- fit_fp_c(
is_in_union = "ALL",
division_numeric_code = 4,
first_year = 1970,
last_year = 2030
)
fitlist %>% names
## [1] "Y" "N" "ALL"
resultlist <- calc_fp_c(fitlist)
resultlist %>% names
## [1] "Y" "N" "ALL"
plots <- plot_fp_c(
fitlist,
resultlist,
indicators = c(
"contraceptive_use_modern"
)
)
plots %>% names
## [1] "Y" "N" "ALL"
plots$ALL
## $contraceptive_use_modern
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.