diff --git a/R/to_integer.R b/R/to_integer.R
index eb7d54a3..fc20180b 100644
--- a/R/to_integer.R
+++ b/R/to_integer.R
@@ -345,6 +345,7 @@ to_integer.gs_design <- function(x, round_up_final = TRUE, ratio = x$input$ratio
   }
 
   n_analysis <- length(x$analysis$analysis)
+  multiply_factor <- ratio + 1
 
   if (!is_rd) {
     # Updated events to integer