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)