fix missing colnames in test

gagneurlab · Apr 16, 2024 · 086f4f9 · 086f4f9
1 parent a97d4da
commit 086f4f9
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/AllGenerics.R b/R/AllGenerics.R
@@ -1111,6 +1111,9 @@ aberrant.FRASER <- function(object, type=fitMetrics(object),
             aberrantEvents <- aberrantEvents & as.matrix(rho <= rhoCutoff)
         }
         aberrantEvents[is.na(aberrantEvents)] <- FALSE
+        if(is.null(colnames(aberrantEvents))){
+            colnames(aberrantEvents) <- colnames(object)
+        }
     }
 
     if(isTRUE(aggregate)){