From f8bf6a9f2224f4135e164e335fd58ff92d05c42c Mon Sep 17 00:00:00 2001
From: Nils Kappelmann <nils_kappelmann@psych.mpg.de>
Date: Tue, 7 Jan 2020 10:40:24 +0100
Subject: [PATCH] rounded n_saved for chisquare power calculation

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

diff --git a/server.R b/server.R
index c5e911a..8773b22 100644
--- 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)