# 1. Two-group equivalence with bounds of 5 raw-scale points and an
# anticipated error SD of 15.67: n per group for 90% power at
# true equivalence.
ss_power_equivalence_c(c_weights = c(1, -1), sigma = 15.67,
delta_upper = 5, desired_power = 0.90)
# 2. Noninferiority is cheaper than equivalence at the same bound.
ss_power_equivalence_c(c_weights = c(1, -1), sigma = 15.67,
delta_upper = 5, desired_power = 0.90,
side = "noninferiority")
# 3. A true contrast off center raises the requirement.
ss_power_equivalence_c(c_weights = c(1, -1), sigma = 15.67,
delta_upper = 5, true_psi = 2,
desired_power = 0.90)
Run the code above in your browser using DataLab