rounded n_saved for chisquare power calculation

mpip · Jan 7, 2020 · f8bf6a9 · f8bf6a9
1 parent 1baee91
commit f8bf6a9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/server.R b/server.R
@@ -75,7 +75,7 @@ server <- function(input, output) {
          n_trad = n1 - n2_rct
          n_total = ceiling(n_trad + n2)
          n_ind = n1 + n2
-         n_saved = n_ind - n_total
+         n_saved = ceiling(n_ind - n_total)