data(distraction, package = "hecmodstat")
with(distraction, t.test(t-c, alternative = "greater", mu = 0))