R/06-calculate_income.R

In validmeasures/wfpKenya: The World Food Programme Kenya Country Strategic Plan Outcome Monitoring

################################################################################
#
#' Function to calculate income dimension indicators of the Abbreviated
#' Women's Empowerment in Agriculture Index (A-WEAI).
#'
#' @param df Dataframe containing A-WEAI income indicator variables.
#'
#' @return A vector recode of WEAI income dimension of 1 (deficit) or
#'   0 (non-deficit)
#'
#' @examples
#'
#' calculate_income(df = individual)
#'
#' @export
#
################################################################################

calculate_income <- function(df) {
  y <- ifelse(df[["weai_dimension1ad"]] == 98, NA,
              ifelse(df[["weai_dimension1ad"]] == 1, 1, 0))
  return(y)
}