data(teacher_expectancy)
head(teacher_expectancy)
# The paper's central picture: effect size against weeks of prior contact.
plot(d ~ weeks, data = teacher_expectancy,
xlab = "Weeks of teacher-student contact before induction",
ylab = "Effect size d")
# The study-level (18-study) data Raudenbush used for the combined tests:
# merge the two Pellegrini & Hicks conditions into their study row.
study_level <- teacher_expectancy[-c(4, 5), ]
ph <- data.frame(study = 4, author = "Pellegrini & Hicks", year = 1972,
weeks = 0, testing = "group", tester = "aware",
n_experimental = 22, n_control = 22,
d = 0.52, p_one_tailed = .010)
study_level <- rbind(study_level[1:3, ], ph, study_level[4:17, ])
round(c(mean = mean(study_level$d), sd = sd(study_level$d)), 2) # .11, .20
Run the code above in your browser using DataLab