# dummy coding example (uses the first contrast from a three-level- / two-contrasts-design)
contrast.object <- factorial.contrasts(factor.levels = 3, coding = "treatment", verbose = 0)
contrast.vector <- contrast.object[["contrast.matrix"]][1, ]
power.t.contrast(mu.vector = c(0.15, 0.30, 0.20),
sd.vector = c(1, 1, 1),
p.vector = c(1/3, 1/3, 1/3),
r.squared = 0.50, k.covariates = 1,
contrast.vector = contrast.vector,
power = 0.80, alpha = 0.05)
Run the code above in your browser using DataLab