# Example derived from the "dept_data" dataset included in MOTE
# Suppose seven people completed a measure before and after an intervention.
# Higher scores indicate stronger endorsement.
scifi <- t.test(dept_data$before, dept_data$after, paired = TRUE)
# The t-test value was 1.43. You can type in the numbers directly,
# or refer to the dataset, as shown below.
d_dep_t_diff_t(t_value = 1.43, n = 7, a = .05)
d_dep_t_diff_t(t_value = scifi$statistic,
n = length(dept_data$before), a = .05)
Run the code above in your browser using DataLab