From 68ab001cede6457a875f6ceae6392b5cb0b7c982 Mon Sep 17 00:00:00 2001
From: Nils Kappelmann <n.kappelmann@gmail.com>
Date: Fri, 20 Dec 2019 09:05:22 +0100
Subject: [PATCH] set different f default for anova function (medium effect
 size)

---
 npRCT_functions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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")    {