# Power calculation result
result_power <- power2Continuous(
n1 = 100, n2 = 100,
delta1 = 0.5, delta2 = 0.5,
sd1 = 1, sd2 = 1,
rho = 0.5, alpha = 0.025,
known_var = TRUE
)
plot(result_power) # Shows power curve
# Sample size calculation result
result_ss <- ss2Continuous(
delta1 = 0.5, delta2 = 0.5,
sd1 = 1, sd2 = 1,
rho = 0.5, r = 1,
alpha = 0.025, beta = 0.2,
known_var = TRUE
)
plot(result_ss) # Shows sample size vs correlation
# Custom plot with specified type
plot(result_power, type = "power_curve", n_range = c(50, 200))
Run the code above in your browser using DataLab