antivax-attitudes

commit 1c408b9a31a5aacf4a81c88206109cc641c95769
parent 7d3181cca73b095cac32c588676ca5d0bbcf5076
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Wed, 19 Aug 2015 22:45:49 -0400

Filtering bad Ps.

Diffstat:
M
antivax-attitudes.R
 | 
8
++++++++

1 file changed, 8 insertions(+), 0 deletions(-)
diff --git a/antivax-attitudes.R b/antivax-attitudes.R
@@ -6,3 +6,11 @@ library(ggplot2)
 
 # Generates warnings, but only for the Ps who didn't do day 2
 expData <- read_excel("Vacc_HPHH_publicDataset.xlsx", sheet = 2)
+
+# Just exclude Ps who didn't do day 2 and failed the attention checks
+expData.clean <- expData %>%
+  filter(!is.na(StartDate_day2),
+         `AttentionCheck_PostTest (if = 4 then include)` == 4,
+         `AttentionChecks_Sum(include if = 4)` == 4,
+         Paid_Attention == 1)
+