R/subpopulation_labels.R

In FPRgroup/FPEMcountry: fpemlocal

subpopulation_labels <- function(contraceptive_use) {
  ifelse(
    contraceptive_use$age_group_bias == "+",
    "+",
    ifelse(
      contraceptive_use$age_group_bias == "-",
      "-",
      ifelse(
        contraceptive_use$age_group_bias == "?",
        "A",
        ifelse(
          contraceptive_use$has_traditional_method_bias == "Y",
          "F",
          ifelse(
            contraceptive_use$modern_method_bias == "-",
            "S-",
            ifelse(contraceptive_use$modern_method_bias == "+",
                   "S+",
                   "")
          )
        )
      )
    )
  )
}


subpopulation_descriptions <- function(contraceptive_use) {
  ifelse(
    contraceptive_use$age_group_bias == "+",
    "+: age group bias",
    ifelse(
      contraceptive_use$age_group_bias == "-",
      "-: age group bias",
      ifelse(
        contraceptive_use$age_group_bias == "?",
        "A: age group bias",
        ifelse(
          contraceptive_use$has_traditional_method_bias == "Y",
          "F: traditional method bias",
          ifelse(
            contraceptive_use$modern_method_bias == "-",
            "S-: modern method bias",
            ifelse(contraceptive_use$modern_method_bias == "+",
                   "S+: modern method bias",
                   "")
          )
        )
      )
    )
  )
}