# Example derived from the "dept_data" dataset included in MOTE
# Suppose seven people completed a measure of belief in the supernatural
# before and after watching a sci-fi movie.
# Higher scores indicate stronger belief.
t.test(dept_data$before, dept_data$after, paired = TRUE)
# Direct entry of summary statistics:
d_dep_t_diff(mdiff = 1.14, sddiff = 2.12, n = 7, a = .05)
# Equivalent shorthand:
d_dep_t_diff(1.14, 2.12, 7, .05)
# Using raw data from the dataset:
d_dep_t_diff(mdiff = mean(dept_data$before - dept_data$after),
sddiff = sd(dept_data$before - dept_data$after),
n = length(dept_data$before),
a = .05)
Run the code above in your browser using DataLab