diff --git a/facebook/delphiFacebook/R/binary.R b/facebook/delphiFacebook/R/binary.R index 08305d375..fddc68537 100644 --- a/facebook/delphiFacebook/R/binary.R +++ b/facebook/delphiFacebook/R/binary.R @@ -135,6 +135,26 @@ get_binary_indicators <- function() { "smoothed_try_vaccinate_1m", "weight_unif", "v_try_vaccinate_1m", 6, compute_binary_response, jeffreys_binary, "smoothed_wtry_vaccinate_1m", "weight", "v_try_vaccinate_1m", 6, compute_binary_response, jeffreys_binary, + "smoothed_winitial_dose_one_of_one", "weight", "v_initial_dose_one_of_one", 6, compute_binary_response, jeffreys_multinomial_factory(4), + "smoothed_winitial_dose_one_of_two", "weight", "v_initial_dose_one_of_two", 6, compute_binary_response, jeffreys_multinomial_factory(4), + "smoothed_winitial_dose_two_of_two", "weight", "v_initial_dose_two_of_two", 6, compute_binary_response, jeffreys_multinomial_factory(4), + + "smoothed_wvaccinated_one_booster", "weight", "v_vaccinated_one_booster", 6, compute_binary_response, jeffreys_multinomial_factory(4), + "smoothed_wvaccinated_two_or_more_boosters", "weight", "v_vaccinated_two_or_more_boosters", 6, compute_binary_response, jeffreys_multinomial_factory(4), + "smoothed_wvaccinated_no_booster", "weight", "v_vaccinated_no_booster", 6, compute_binary_response, jeffreys_multinomial_factory(4), + "smoothed_wvaccinated_at_least_one_booster", "weight", "v_vaccinated_at_least_one_booster", 6, compute_binary_response, jeffreys_binary, + + "smoothed_wvaccinated_booster_accept", "weight", "v_vaccinated_booster_accept", 6, compute_binary_response, jeffreys_binary, + "smoothed_wvaccinated_booster_hesitant", "weight", "v_vaccinated_booster_hesitant", 6, compute_binary_response, jeffreys_binary, + + "smoothed_wvaccinated_booster_defyes", "weight", "v_vaccinated_booster_defyes", 6, compute_binary_response, jeffreys_multinomial_factory(4), + "smoothed_wvaccinated_booster_probyes", "weight", "v_vaccinated_booster_probyes", 6, compute_binary_response, jeffreys_multinomial_factory(4), + "smoothed_wvaccinated_booster_probno", "weight", "v_vaccinated_booster_probno", 6, compute_binary_response, jeffreys_multinomial_factory(4), + "smoothed_wvaccinated_booster_defno", "weight", "v_vaccinated_booster_defno", 6, compute_binary_response, jeffreys_multinomial_factory(4), + + "smoothed_wflu_vaccinated_2021", "weight", "v_flu_vaccinated_2021", 6, compute_binary_response, jeffreys_binary, + + # who would make more likely to accept vaccine "smoothed_vaccine_likely_friends", "weight_unif", "v_vaccine_likely_friends", 6, compute_binary_response, jeffreys_binary, "smoothed_wvaccine_likely_friends", "weight", "v_vaccine_likely_friends", 6, compute_binary_response, jeffreys_binary, diff --git a/facebook/delphiFacebook/R/contingency_indicators.R b/facebook/delphiFacebook/R/contingency_indicators.R index 426b362d0..205b06588 100644 --- a/facebook/delphiFacebook/R/contingency_indicators.R +++ b/facebook/delphiFacebook/R/contingency_indicators.R @@ -150,6 +150,26 @@ get_aggs <- function() { "pct_accept_vaccine_no_appointment_probno", "v_accept_vaccine_no_appointment_probno", compute_binary, jeffreys_multinomial_factory(4), "pct_accept_vaccine_no_appointment_defno", "v_accept_vaccine_no_appointment_defno", compute_binary, jeffreys_multinomial_factory(4), + "pct_initial_dose_one_of_one", "v_initial_dose_one_of_one", compute_binary, jeffreys_multinomial_factory(4), + "pct_initial_dose_one_of_two", "v_initial_dose_one_of_two", compute_binary, jeffreys_multinomial_factory(4), + "pct_initial_dose_two_of_two", "v_initial_dose_two_of_two", compute_binary, jeffreys_multinomial_factory(4), + + "pct_vaccinated_one_booster", "v_vaccinated_one_booster", compute_binary, jeffreys_multinomial_factory(4), + "pct_vaccinated_two_or_more_boosters", "v_vaccinated_two_or_more_boosters", compute_binary, jeffreys_multinomial_factory(4), + "pct_vaccinated_no_booster", "v_vaccinated_no_booster", compute_binary, jeffreys_multinomial_factory(4), + "pct_vaccinated_at_least_one_booster", "v_vaccinated_at_least_one_booster", compute_binary, jeffreys_binary, + + "pct_vaccinated_booster_accept", "v_vaccinated_booster_accept", compute_binary, jeffreys_binary, + "pct_vaccinated_booster_hesitant", "v_vaccinated_booster_hesitant", compute_binary, jeffreys_binary, + + "pct_vaccinated_booster_defyes", "v_vaccinated_booster_defyes", compute_binary, jeffreys_multinomial_factory(4), + "pct_vaccinated_booster_probyes", "v_vaccinated_booster_probyes", compute_binary, jeffreys_multinomial_factory(4), + "pct_vaccinated_booster_probno", "v_vaccinated_booster_probno", compute_binary, jeffreys_multinomial_factory(4), + "pct_vaccinated_booster_defno", "v_vaccinated_booster_defno", compute_binary, jeffreys_multinomial_factory(4), + + "pct_flu_vaccinated_2021", "v_flu_vaccinated_2021", compute_binary, jeffreys_binary, + + # vaccine timing "pct_vaccine_timing_weeks", "v_vaccine_timing_weeks", compute_binary, jeffreys_multinomial_factory(7), "pct_vaccine_timing_onemonth", "v_vaccine_timing_onemonth", compute_binary, jeffreys_multinomial_factory(7), diff --git a/facebook/delphiFacebook/R/variables.R b/facebook/delphiFacebook/R/variables.R index b4461776d..bfef39030 100644 --- a/facebook/delphiFacebook/R/variables.R +++ b/facebook/delphiFacebook/R/variables.R @@ -859,6 +859,50 @@ code_vaccines <- function(input_data, wave) { input_data$v_covid_vaccinated_friends <- NA } + if ("V2d" %in% names(input_data)) { + input_data$v_initial_dose_one_of_one <- input_data$V2d == 1 + input_data$v_initial_dose_one_of_two <- input_data$V2d == 2 + input_data$v_initial_dose_two_of_two <- input_data$V2d == 3 + } else { + input_data$v_initial_dose_one_of_one <- NA + input_data$v_initial_dose_one_of_two <- NA + input_data$v_initial_dose_two_of_two <- NA + } + + if ("V2b" %in% names(input_data)) { + input_data$v_vaccinated_one_booster <- input_data$V2b == 1 + input_data$v_vaccinated_two_or_more_boosters <- input_data$V2b == 2 + input_data$v_vaccinated_at_least_one_booster <- input_data$V2b == 1 | input_data$V2b == 2 + input_data$v_vaccinated_no_booster <- input_data$V2b == 3 + } else { + input_data$v_vaccinated_one_booster <- NA + input_data$v_vaccinated_two_or_more_boosters <- NA + input_data$v_vaccinated_at_least_one_booster <- NA + input_data$v_vaccinated_no_booster <- NA + } + + if ("V2c" %in% names(input_data)) { + input_data$v_vaccinated_booster_accept <- input_data$V2c == 1 | input_data$V2c == 2 + input_data$v_vaccinated_booster_hesitant <- input_data$V2c == 3 | input_data$V2c == 4 + input_data$v_vaccinated_booster_defyes <- input_data$V2c == 1 + input_data$v_vaccinated_booster_probyes <- input_data$V2c == 2 + input_data$v_vaccinated_booster_probno <- input_data$V2c == 3 + input_data$v_vaccinated_booster_defno <- input_data$V2c == 4 + } else { + input_data$v_vaccinated_booster_accept <- NA + input_data$v_vaccinated_booster_hesitant <- NA + input_data$v_vaccinated_booster_defyes <- NA + input_data$v_vaccinated_booster_probyes <- NA + input_data$v_vaccinated_booster_probno <- NA + input_data$v_vaccinated_booster_defno <- NA + } + + if ("C17b" %in% names(input_data)) { + input_data$v_flu_vaccinated_2021 <- input_data$C17b == 1 + } else { + input_data$v_flu_vaccinated_2021 <- NA + } + return(input_data) }