From f42f37e889e2008605a99fa10a23160bf76ab15a Mon Sep 17 00:00:00 2001
From: Llib-G <144194989+Llib-G@users.noreply.github.com>
Date: Wed, 13 Sep 2023 11:34:01 +0800
Subject: [PATCH] Update deltanetsPlus.R

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

diff --git a/deltanetsPlus/R/deltanetsPlus.R b/deltanetsPlus/R/deltanetsPlus.R
index 5751c1f..60b6e83 100644
--- a/deltanetsPlus/R/deltanetsPlus.R
+++ b/deltanetsPlus/R/deltanetsPlus.R
@@ -87,7 +87,7 @@ deltanetsPlus <- function(data, slope=NULL, grn=NULL, perturbation=c("group","in
 
 
     if(nrow(slope)!=nrow(lfc)){
-      stope("The number of rows in 'slope' should be equal to the number of rows in 'lfc'.")}
+      stop("The number of rows in 'slope' should be equal to the number of rows in 'lfc'.")}
 
     m_slope = ncol(slope)