R/MA_MBAY_W_B15.R

In surveyPrev: Mapping the Prevalence of Binary Indicators using Survey Data in Small Areas

##' MA_MBAY_W_B15  Young women age 20-24 first married by exact age 15
##' ms_afm_15 in github
##' IR
#' @param Rdata  data.frame from surveyPrev::getDHSdata
#'
#' @return A partially processed data.frame that will be used in surveyPrev::getDHSindicator. The whole function can be used as a parameter in surveyPrev::getDHSindicator
#'
#' @author Miaolei Bao, Yunhan Wu, Qianyu Dong
#' @examples
#' \dontrun{
#' dhsData <- getDHSdata(country = "Zambia", indicator = "MA_MBAY_W_B15", year = 2018)
#' }
#'
#' @export
MA_MBAY_W_B15<- function(Rdata){


  # Create yes and no category labels
  yesno <- c("Yes" = 1, "No" = 0)

  # First marriage by age 18
  IRdata <- Rdata %>%
    filter(v013 %in% c(2) )%>%
    mutate(MA_MBAY_W_B15 = case_when(v511>=0 & v511<15 ~ 1, TRUE ~ 0)) %>%
    set_value_labels(MA_MBAY_W_B15 = yesno) %>%
    set_variable_labels(MA_MBAY_W_B15 = "First marriage by age 15")

  colnames(IRdata)[colnames(IRdata) == 'MA_MBAY_W_B15'] <- 'value'

  return(IRdata)
}