contingency changes

Author: nmdefries

facebook/delphiFacebook/R/contingency_indicators.R

@@ -134,6 +134,7 @@ get_aggs <- function() {
     "pct_covid_vaccinated_friends", "v_covid_vaccinated_friends", compute_binary, jeffreys_binary,
 
     "pct_vaccinate_children", "v_vaccinate_children", compute_binary, jeffreys_binary,
+    "pct_vaccinate_child_oldest", "v_vaccinate_child_oldest", compute_binary, jeffreys_binary,
 
     "pct_accept_vaccine_defyes", "v_accept_vaccine_defyes", compute_binary, jeffreys_multinomial_factory(4),
     "pct_accept_vaccine_probyes", "v_accept_vaccine_probyes", compute_binary, jeffreys_multinomial_factory(4),
@@ -202,6 +203,7 @@ get_aggs <- function() {
     "pct_hesitant_barrier_health_condition", "v_hesitant_barrier_health_condition", compute_binary, jeffreys_binary,
     "pct_hesitant_barrier_pregnant", "v_hesitant_barrier_pregnant", compute_binary, jeffreys_binary,
     "pct_hesitant_barrier_other", "v_hesitant_barrier_other", compute_binary, jeffreys_binary,
+    "pct_hesitant_barrier_dislike_vaccines_generally", "v_hesitant_barrier_dislike_vaccines_generally", compute_binary, jeffreys_binary,
 
     "pct_hesitant_dontneed_reason_had_covid", "v_hesitant_dontneed_reason_had_covid", compute_binary, jeffreys_binary,
     "pct_hesitant_dontneed_reason_dont_spend_time", "v_hesitant_dontneed_reason_dont_spend_time", compute_binary, jeffreys_binary,
@@ -226,6 +228,7 @@ get_aggs <- function() {
     "pct_barrier_health_condition", "v_hesitancy_reason_health_condition", compute_binary, jeffreys_binary,
     "pct_barrier_pregnant", "v_hesitancy_reason_pregnant", compute_binary, jeffreys_binary,
     "pct_barrier_other", "v_hesitancy_reason_other", compute_binary, jeffreys_binary,
+    "pct_barrier_dislike_vaccines_generally", "v_hesitancy_reason_dislike_vaccines_generally", compute_binary, jeffreys_binary,
 
     # vaccine "don't need" reasons
     "pct_dontneed_reason_had_covid", "v_dontneed_reason_had_covid_5abc_6", compute_binary, jeffreys_binary,
@@ -251,6 +254,7 @@ get_aggs <- function() {
     "pct_defno_barrier_health_condition", "v_defno_barrier_health_condition", compute_binary, jeffreys_binary,
     "pct_defno_barrier_pregnant", "v_defno_barrier_pregnant", compute_binary, jeffreys_binary,
     "pct_defno_barrier_other", "v_defno_barrier_other", compute_binary, jeffreys_binary,
+    "pct_defno_barrier_dislike_vaccines_generally", "v_defno_barrier_dislike_vaccines_generally", compute_binary, jeffreys_binary,
 
     "pct_defno_dontneed_reason_had_covid", "v_defno_dontneed_reason_had_covid", compute_binary, jeffreys_binary,
     "pct_defno_dontneed_reason_dont_spend_time", "v_defno_dontneed_reason_dont_spend_time", compute_binary, jeffreys_binary,
@@ -283,6 +287,8 @@ get_aggs <- function() {
     "pct_vaccine_barrier_time", "v_vaccine_barrier_time", compute_binary, jeffreys_binary,
     "pct_vaccine_barrier_type", "v_vaccine_barrier_type", compute_binary, jeffreys_binary,
     "pct_vaccine_barrier_none", "v_vaccine_barrier_none", compute_binary, jeffreys_binary,
+    "pct_vaccine_barrier_appointment_location", "v_vaccine_barrier_appointment_location", compute_binary, jeffreys_binary,
+    "pct_vaccine_barrier_other", "v_vaccine_barrier_other", compute_binary, jeffreys_binary,
 
     # beliefs
     "pct_belief_masking_effective", "b_belief_masking_effective", compute_binary, jeffreys_binary,
@@ -396,6 +402,8 @@ get_aggs <- function() {
     "pct_vaccine_barrier_time_has", "v_vaccine_barrier_time_has", compute_binary, jeffreys_binary,
     "pct_vaccine_barrier_type_has", "v_vaccine_barrier_type_has", compute_binary, jeffreys_binary,
     "pct_vaccine_barrier_none_has", "v_vaccine_barrier_none_has", compute_binary, jeffreys_binary,
+    "pct_vaccine_barrier_appointment_location_has", "v_vaccine_barrier_appointment_location_has", compute_binary, jeffreys_binary,
+    "pct_vaccine_barrier_other_has", "v_vaccine_barrier_other_has", compute_binary, jeffreys_binary,
 
     # vaccine barriers for tried vaccinated
     "pct_vaccine_barrier_eligible_tried", "v_vaccine_barrier_eligible_tried", compute_binary, jeffreys_binary,
@@ -409,7 +417,9 @@ get_aggs <- function() {
     "pct_vaccine_barrier_childcare_tried", "v_vaccine_barrier_childcare_tried", compute_binary, jeffreys_binary,
     "pct_vaccine_barrier_time_tried", "v_vaccine_barrier_time_tried", compute_binary, jeffreys_binary,
     "pct_vaccine_barrier_type_tried", "v_vaccine_barrier_type_tried", compute_binary, jeffreys_binary,
-    "pct_vaccine_barrier_none_tried", "v_vaccine_barrier_none_tried", compute_binary, jeffreys_binary
+    "pct_vaccine_barrier_none_tried", "v_vaccine_barrier_none_tried", compute_binary, jeffreys_binary,
+    "pct_vaccine_barrier_appointment_location_tried", "v_vaccine_barrier_appointment_location_tried", compute_binary, jeffreys_binary,
+    "pct_vaccine_barrier_other_tried", "v_vaccine_barrier_other_tried", compute_binary, jeffreys_binary
   )
 
   aggs <- create_aggs_product(regions, groups, indicators)

facebook/delphiFacebook/R/contingency_variables.R

@@ -533,16 +533,27 @@ code_vaccine_barriers <- function(input_data, wave) {
     input_data$v_hesitant_barrier_other <- is_selected(hesitancy_reasons, "13")
     input_data$v_hesitant_barrier_pregnant <- is_selected(hesitancy_reasons, "14")
     input_data$v_hesitant_barrier_religious <- is_selected(hesitancy_reasons, "15")
+    input_data$v_hesitant_barrier_dislike_vaccines_generally <- is_selected(hesitancy_reasons, "16") # replacing choice 5 as of Wave 12
 
-    # These response choices were removed starting in Wave 11. They are explicitly set to missing
-    # for waves 11 and later since `is_selected` will return FALSE (meaning "not selected") for
-    # them if the respondent selected at least once answer choice.
-    input_data$v_hesitant_barrier_allergic[input_data$wave >= 11] <- NA
-    input_data$v_hesitant_barrier_not_recommended[input_data$wave >= 11] <- NA
-    input_data$v_hesitant_barrier_distrust_vaccines[input_data$wave >= 11] <- NA
-    input_data$v_hesitant_barrier_health_condition[input_data$wave >= 11] <- NA
-    input_data$v_hesitant_barrier_pregnant[input_data$wave >= 11] <- NA
-    
+    # For waves before a given response choice existed, explicitly set the
+    # derived field to missing since `is_selected` will return FALSE (meaning
+    # "not selected") for them if the respondent selected at least once answer
+    # choice.
+    if (wave >= 11) {
+      input_data$v_hesitant_barrier_allergic <- NA
+      input_data$v_hesitant_barrier_not_recommended <- NA
+      input_data$v_hesitant_barrier_health_condition <- NA
+      input_data$v_hesitant_barrier_pregnant <- NA
+    }
+    if (wave == 11) {
+      input_data$v_hesitant_barrier_distrust_vaccines <- NA
+    }
+    if (wave < 12) {
+      input_data$v_hesitant_barrier_dislike_vaccines_generally <- NA
+    }
+    if (wave >= 12) {
+      input_data$v_hesitant_barrier_dislike_vaccines <- NA
+    }
   } else {
     input_data$v_hesitant_barrier_sideeffects <- NA
     input_data$v_hesitant_barrier_allergic <- NA
@@ -559,6 +570,7 @@ code_vaccine_barriers <- function(input_data, wave) {
     input_data$v_hesitant_barrier_other <- NA
     input_data$v_hesitant_barrier_pregnant <- NA
     input_data$v_hesitant_barrier_religious <- NA
+    input_data$v_hesitant_barrier_dislike_vaccines_generally <- NA
   }
 
   # defno_barrier_<reason>
@@ -584,16 +596,27 @@ code_vaccine_barriers <- function(input_data, wave) {
     input_data$v_defno_barrier_other <- is_selected(defno_reasons, "13")
     input_data$v_defno_barrier_pregnant <- is_selected(defno_reasons, "14")
     input_data$v_defno_barrier_religious <- is_selected(defno_reasons, "15")
-
-    # These response choices were removed starting in Wave 11. They are explicitly set to missing
-    # for waves 11 and later since `is_selected` will return FALSE (meaning "not selected") for
-    # them if the respondent selected at least once answer choice.
-    input_data$v_defno_barrier_allergic[input_data$wave >= 11] <- NA
-    input_data$v_defno_barrier_not_recommended[input_data$wave >= 11] <- NA
-    input_data$v_defno_barrier_distrust_vaccines[input_data$wave >= 11] <- NA
-    input_data$v_defno_barrier_health_condition[input_data$wave >= 11] <- NA
-    input_data$v_defno_barrier_pregnant[input_data$wave >= 11] <- NA
-
+    input_data$v_defno_barrier_dislike_vaccines_generally <- is_selected(defno_reasons, "16") # replacing choice 5 as of Wave 12
+    
+    # For waves before a given response choice existed, explicitly set the
+    # derived field to missing since `is_selected` will return FALSE (meaning
+    # "not selected") for them if the respondent selected at least once answer
+    # choice.
+    if (wave >= 11) {
+      input_data$v_defno_barrier_allergic <- NA
+      input_data$v_defno_barrier_not_recommended <- NA
+      input_data$v_defno_barrier_health_condition <- NA
+      input_data$v_defno_barrier_pregnant <- NA
+    }
+    if (wave == 11) {
+      input_data$v_defno_barrier_distrust_vaccines <- NA
+    }
+    if (wave < 12) {
+      input_data$v_defno_barrier_dislike_vaccines_generally <- NA
+    }
+    if (wave >= 12) {
+      input_data$v_defno_barrier_dislike_vaccines <- NA
+    }
   } else {
     input_data$v_defno_barrier_sideeffects <- NA
     input_data$v_defno_barrier_allergic <- NA
@@ -610,6 +633,7 @@ code_vaccine_barriers <- function(input_data, wave) {
     input_data$v_defno_barrier_other <- NA
     input_data$v_defno_barrier_pregnant <- NA
     input_data$v_defno_barrier_religious <- NA
+    input_data$v_defno_barrier_dislike_vaccines_generally <- NA
   }
 
 # dontneed_reason_<reason>