@@ -368,7 +368,7 @@ filter_data_for_aggregation <- function(df, params, lead_days = 12L)
368
368
dplyr :: between(.data $ hh_number_total , 1L , 30L ),
369
369
.data $ hh_number_sick < = .data $ hh_number_total ,
370
370
.data $ day > = (as.Date(params $ start_date ) - lead_days ),
371
- ! ( .data $ wave != 12.5 ) # Ignore experimental Wave 12 data
371
+ .data $ wave != 12.5 # Ignore experimental Wave 12 data
372
372
)
373
373
374
374
msg_plain(paste0(" Finished filtering data for aggregations" ))
@@ -517,11 +517,11 @@ module_assignment <- function(input_data, wave) {
517
517
# ' @importFrom dplyr case_when
518
518
experimental_arm_assignment <- function (input_data , wave ) {
519
519
if (wave == 12.5 ) {
520
- assert( " random_num_exp " %in% names(input_data ) )
520
+ assert( " random_number_exp " %in% names(input_data ) )
521
521
input_data $ w12_treatment <- case_when(
522
- input_data $ random_num_exp > = 0.6666 ~ 1 , # demographics placed after symptom items
523
- input_data $ random_num_exp > = 0.3333 ~ 2 , # demographics placed after vaccine items
524
- input_data $ random_num_exp < 0.3333 ~ 3 , # alternative wording to V1
522
+ input_data $ random_number_exp > = 0.6666 ~ 1 , # demographics placed after symptom items
523
+ input_data $ random_number_exp > = 0.3333 ~ 2 , # demographics placed after vaccine items
524
+ input_data $ random_number_exp < 0.3333 ~ 3 , # alternative wording to V1
525
525
TRUE ~ NA_real_
526
526
)
527
527
}
0 commit comments