diff --git a/cute_little_R_functions.R b/cute_little_R_functions.R
index 35121b6c543f1036789d907598884f4061a0933d..fa72fbe8a9e5c7d92abb31ebcb76fcd2d96fac4a 100755
--- a/cute_little_R_functions.R
+++ b/cute_little_R_functions.R
@@ -1618,7 +1618,7 @@ fun_comp_2d <- function(data1, data2){
         colnames(data1) <- paste0("A", 1:ncol(data1))
         colnames(data2) <- paste0("A", 1:ncol(data2))
         if(same.col.nb == TRUE){ # because if not the same col nb, the row cannot be identical
-            if(as.double(nrow(obs1)) * as.double(nrow(obs2)) <= 1e6){
+            if(as.double(nrow(data1)) * as.double(nrow(data2)) <= 1e6){
                 tempo1 <- c(as.data.frame(t(data1), stringsAsFactors = FALSE)) # conversion into list. This work fast with characters
                 tempo2 <- c(as.data.frame(t(data2), stringsAsFactors = FALSE)) # conversion into list. This work fast with characters
                 same.row.pos1 <- which(tempo1 %in% tempo2)
diff --git a/cute_little_R_functions.docx b/cute_little_R_functions.docx
index 1212ba91e0c84fe3ac2e7c3e43cdda389af8d99a..49b6f60535667c40b7a012aea4c4abd7eb620cd9 100755
Binary files a/cute_little_R_functions.docx and b/cute_little_R_functions.docx differ