# \donttest{
########
## Prospective power analysis update
# Estimate power using sig.level = .05 (default)
out <- p_t.test(n = 50, d = .5) |> Spower()
# update power estimate given sig.level=.01 and .20
update(out, sig.level=.01)
update(out, sig.level=.20)
########
## Compromise analysis update
# Solve beta/alpha ratio to specific error trade-off constant
out <- p_t.test(n = 50, d = .5) |> Spower(beta_alpha = 2)
# update beta_alpha criteria without re-simulating
update(out, beta_alpha=4)
# also works if compromise not initially run but prospective/post-hoc power was
out <- p_t.test(n = 50, d = .5) |> Spower()
update(out, beta_alpha=4)
# }
Run the code above in your browser using DataLab