simdat.t2 <- sim.t2(nx = 30, ny = 40, meanx = 0, meany = 0.2, sdx = 1,
sdy = 1, num.experiments = 2, experiment.name = "experiment",
group.name = "group", x.value = "x", y.value = "y", value.name = "value",
seed = 17)
test.statistics.t2 <- sim.t2.test(simdat.t2 = simdat.t2,
alternative = "less", mu = 0, conf.level = 0.9,
experiment.name = "experiment", group.name = "group",
x.value = "x", y.value = "y", value.name = "value")
analysis.t2 <- analyze.simstudy.t2(test.statistics.t2 =
test.statistics.t2, alternative = "less", conf.level = 0.9,
the.quantiles = c(0.25, 0.5, 0.75))
Run the code above in your browser using DataLab