set different f default for anova function (medium effect size)

mpip · Dec 20, 2019 · 68ab001 · 68ab001
1 parent 6441602
commit 68ab001
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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")    {