diff --git a/Indicators/Economic-Capacity-to-Meet-Essential-Needs/ECMEN-ExcludingAssistance.R b/Indicators/Economic-Capacity-to-Meet-Essential-Needs/ECMEN-ExcludingAssistance.R index d97ca22..59d9f57 100644 --- a/Indicators/Economic-Capacity-to-Meet-Essential-Needs/ECMEN-ExcludingAssistance.R +++ b/Indicators/Economic-Capacity-to-Meet-Essential-Needs/ECMEN-ExcludingAssistance.R @@ -156,7 +156,7 @@ df <- df %>% mutate( ECMEN_exclAsst = if_else( !is.na(PCExp_ECMEN) & !is.na(.data[[meb_var]]), - as.integer(PCExp_ECMEN > .data[[meb_var]]), + as.integer(PCExp_ECMEN >= .data[[meb_var]]), NA_integer_ ) ) @@ -179,7 +179,7 @@ if (smeb_var %in% names(df)) { mutate( ECMEN_exclAsst_SMEB = if_else( !is.na(PCExp_ECMEN) & !is.na(.data[[smeb_var]]), - as.integer(PCExp_ECMEN > .data[[smeb_var]]), + as.integer(PCExp_ECMEN >= .data[[smeb_var]]), NA_integer_ ) )