Skip to content

Commit 7e45ff6

Browse files
committed
fix filter and random num name
1 parent 3773570 commit 7e45ff6

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

facebook/delphiFacebook/R/responses.R

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -368,7 +368,7 @@ filter_data_for_aggregation <- function(df, params, lead_days = 12L)
368368
dplyr::between(.data$hh_number_total, 1L, 30L),
369369
.data$hh_number_sick <= .data$hh_number_total,
370370
.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
372372
)
373373

374374
msg_plain(paste0("Finished filtering data for aggregations"))
@@ -517,11 +517,11 @@ module_assignment <- function(input_data, wave) {
517517
#' @importFrom dplyr case_when
518518
experimental_arm_assignment <- function(input_data, wave) {
519519
if (wave == 12.5) {
520-
assert( "random_num_exp" %in% names(input_data) )
520+
assert( "random_number_exp" %in% names(input_data) )
521521
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
525525
TRUE ~ NA_real_
526526
)
527527
}

0 commit comments

Comments
 (0)