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)