'DEAR READER' MESSAGE
The authors have written the following message for visitors to this box.
Please note that these messages can be modified or deleted at any point (even after a box is made permanent)
Due to a coding error, in Study 4 we excluded data from an additional 75 participants who were matched with agreeing (rather than disagreeing) partners. We discovered this error prior to publication, but after making our ResearchBox public (and thus no longer editable). To reproduce the numbers in the manuscript, please add the code below to line 14 in the code file for Study 4.
If you have any additional questions, please do not hesitate to reach out to me at firstname.lastname@example.org.
#-Correct coding error (some people saw an agreeing statement instead of disagreeing)
study4$attitude_check <- ifelse(study4$issue == "stem" & study4$stem > 4, "agree",
ifelse(study4$issue == "stem" & study4$stem < 4, "disagree",
ifelse(study4$issue == "isis" & study4$isis > 4, "agree",
ifelse(study4$issue == "isis" & study4$isis < 4, "disagree", NA))))
table(study4$attitude, study4$attitude_check, useNA = "ifany")
study4$attitude_match <- study4$attitude==study4$attitude_check
table(study4$attitude_match) #75 exclusions
study4$error_exclude <- ifelse(study4$attitude_match=="FALSE", 1, NA)
study4 <- study4[is.na(study4$error_exclude),]
This version: February 04, 2022