From 59b7fae4d2bea55fee3d1b5e26e90162dd54d393 Mon Sep 17 00:00:00 2001
From: Sebastian Gregoricchio
 <52447016+sebastian-gregoricchio@users.noreply.github.com>
Date: Tue, 23 Jul 2024 11:46:54 +0200
Subject: [PATCH] Update incucyte.R

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

diff --git a/R/incucyte.R b/R/incucyte.R
index 2c80569..03a58b5 100644
--- a/R/incucyte.R
+++ b/R/incucyte.R
@@ -250,7 +250,7 @@ incucyte =
 
       # division by the minimum value of each column
       first.value = unlist(raw.data.subtraction[1,2:ncol(raw.data.subtraction)])
-      raw.data.subtraction[,3:ncol(raw.data.subtraction)] = data.frame(sweep(as.matrix(raw.data.subtraction[,2:ncol(raw.data.subtraction)])+1,
+      raw.data.subtraction[,2:ncol(raw.data.subtraction)] = data.frame(sweep(as.matrix(raw.data.subtraction[,2:ncol(raw.data.subtraction)])+1,
                                                                              2, first.value, FUN="-"))
 
       for (i in 1:length(groups)) {