From 40512d6302ce8d578b4fc0e0b96f49044946b1c6 Mon Sep 17 00:00:00 2001
From: KristinaGomoryova <gomoryova@sci.muni.cz>
Date: Wed, 30 Oct 2024 11:30:03 +0100
Subject: [PATCH] start_idx reverted to the original state

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

diff --git a/R/IsoFiltR.R b/R/IsoFiltR.R
index 380d6d8..d0b5dfa 100644
--- a/R/IsoFiltR.R
+++ b/R/IsoFiltR.R
@@ -47,7 +47,7 @@ create_data_chunks <- function(data1) {
 
   data_chunks <- list()
   for (i in 1:10) {
-    start_idx <- max((i-1)*sect, 1)
+    start_idx <- (i - 1) * sect + 1
     end_idx <- min((i * sect + over), nrow(data1))
     data_chunks[[i]] <- data1[start_idx:end_idx, ]
   }