# Double-difference score reliability
q_reliability(ds=erotica,subjvar="subject",
formula= RT ~ is_pull * is_target, aatterm = "is_pull:is_target")
# Single-difference reliability for target stimuli
q_reliability(ds=erotica[erotica$is_target ==1,],subjvar="subject",
formula= RT ~ is_pull, aatterm = "is_pull")
# Reliability of the mean reaction time of approaching target stimuli (no difference score)
q_reliability(ds=erotica[erotica$is_target ==1 & erotica$is_pull ==1,],subjvar="subject",
formula= RT ~ 1, aatterm = "1")
q_reliability2(ds=erotica,subjvar="subject",
splitvars=c("is_pull", "is_target"),rtvar="RT")
Run the code above in your browser using DataLab