Chapter 3 Household Hunger Score
3.0.1 Standardized Module
Variable Name | Question Label | Answer Choices |
---|---|---|
HHhSNoFood_YN | In the past [4 weeks/30 days], was there ever no food to eat of any kind in your house because of lack of resources to get food? | 1) Yes 0) No |
HHhSNoFood_FR | How often did this happen in the past [4 weeks/30 days]? | 1) Rarely (1–2 times) 2) Sometimes (3–10 times) 3) Often (more than 10 times) |
HHhSBedHung_YN | In the past [4 weeks/30 days], did you or any household member go to sleep at night hungry because there was not enough food? | 1) Yes 0) No |
HHhSBedHung_FR | How often did this happen in the past [4 weeks/30 days]? | 1) Rarely (1–2 times) 2) Sometimes (3–10 times) 3) Often (more than 10 times) |
HHhSNotEat_YN | In the past [4 weeks/30 days], did you or any household member go to sleep at night hungry because there was not enough food? | 1) Yes 0) No |
HHhSNotEat_FR | How often did this happen in the past [4 weeks/30 days]? | 1) Rarely (1–2 times) 2) Sometimes (3–10 times) 3) Often (more than 10 times) |
3.0.2 Standardized Module - data collection form
Here is the standardized module in xlsform: RBDstandardized_questionnairerHHS
3.0.3 Analysis
3.0.3.2 SPSS Syntax
rCSILessQlty + (2 * rCSIBorrow) + rCSIMealSize + (3 * rCSIMealAdult) + rCSIMealNb.
COMPUTE rCSI = EXECUTE .
Here is the SPSS syntax file: RBDstandardized_spsssyntaxrCSI
3.0.3.3 R Syntax
library(haven)
library(labelled)
library(tidyverse)
#import dataset
read_sav("dataHHSEng.sav")
dataHHSEng <-
#Calculate HHS
to_factor(dataHHSEng)
dataHHSEng <-
#Recode HHS questions into new variables with score
dataHHSEng %>% mutate(HHhSNoFood_FR_r = case_when(
dataHHSEng <-== "Rarely (1–2 times)" ~ 1,
HHhSNoFood_FR == "Sometimes (3–10 times)" ~ 1,
HHhSNoFood_FR == "Often (more than 10 times)" ~ 2,
HHhSNoFood_FR TRUE ~ 0),
HHhSBedHung_FR_r = case_when(
== "Rarely (1–2 times)" ~ 1,
HHhSBedHung_FR == "Sometimes (3–10 times)" ~ 1,
HHhSBedHung_FR == "Often (more than 10 times)" ~ 2,
HHhSBedHung_FR TRUE ~ 0),
HHhSNotEat_FR_r = case_when(
== "Rarely (1–2 times)" ~ 1,
HHhSNotEat_FR == "Sometimes (3–10 times)" ~ 1,
HHhSNotEat_FR == "Often (more than 10 times)" ~ 2,
HHhSNotEat_FR TRUE ~ 0))
#Calculate HHS
dataHHSEng %>% mutate(HHhS = HHhSNoFood_FR_r + HHhSBedHung_FR_r + HHhSNotEat_FR_r)
dataHHSEng <-
#Convert HH Scores to CH phases
dataHHSEng %>% mutate(CH_HHS = case_when(
dataHHSEng <-== 0 ~ "Phase1",
HHhS == 1 ~ "Phase2",
HHhS %in% c(2,3,4) ~ "Phase3",
HHhS == 4 ~ "Phase4",
HHhS >= 5 ~ "Phase5"))
HHhS
#Generate table of proportion of households in CH HHS phases by Adm1 and Adm2 using weights
dataHHSEng %>% group_by(ADMIN1Name, ADMIN2Name) %>%
CH_HHS_table_wide <- drop_na(CH_HHS) %>%
count(CH_HHS, wt = hh_weight) %>%
mutate(perc = 100 * n / sum(n)) %>%
ungroup() %>% select(-n) %>%
spread(key = CH_HHS, value = perc) %>% replace(., is.na(.), 0) %>% mutate_if(is.numeric, round, 1)
Here is the R syntax file: RBDstandardized_RsyntaxHHS