diff --git a/npRCT_functions.R b/npRCT_functions.R index aedc6b5..36a02c4 100644 --- a/npRCT_functions.R +++ b/npRCT_functions.R @@ -48,7 +48,7 @@ npRCT.pwr.t.test <- function(d1 = 0.5, d2 = 0.5, # --------------anova eqivalent--------------- -npRCT.pwr.anova.test <- function(f1 = 0.5, d2 = 0.5, k = 3, +npRCT.pwr.anova.test <- function(f1 = 0.25, d2 = 0.5, k = 3, sig.level1 = 0.05, sig.level2 = 0.05, power1 = 0.8, power2 = 0.8, type2 = "two.sample", alternative2 = "two.sided") {