Last active
April 12, 2016 15:00
-
-
Save jake-westfall/7b1c88eda9f5b12017ef6e4d89d8a5fb to your computer and use it in GitHub Desktop.
for blog
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
dat <- read.table("http://pcl.missouri.edu/exp/effectSizePuzzler.txt", header=TRUE) | |
str(dat) | |
# 'data.frame': 2500 obs. of 3 variables: | |
# $ id : int 1 1 1 1 1 1 1 1 1 1 ... | |
# $ cond: int 1 1 1 1 1 1 1 1 1 1 ... | |
# $ rt : num 0.56 0.93 0.795 0.615 1.028 ... | |
(means <- with(dat, tapply(rt, cond, mean))) | |
# 1 2 | |
# 0.8322560 0.8845544 | |
md <- diff(means) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment