# Density at a single value of sigma:
power_density_equivalence_md(power_sigma = 0.10, alpha_level = .05,
theta1 = -.2, theta2 = .2, diff = .05,
sigma = .20, n = 24, nu = 22)
# Vectorized over a grid:
grid <- power_density_equivalence_md(
power_sigma = seq(0.01, 0.40, length.out = 50),
alpha_level = .05, theta1 = -.2, theta2 = .2, diff = .05,
sigma = .20, n = 24, nu = 22
)
head(grid)
Run the code above in your browser using DataLab