Update rnaseq.R

issue ttdtrang#3
synanth · Apr 4, 2024 · 78df6b1 · 78df6b1
1 parent 63c3c4e
commit 78df6b1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rnaseq.R b/R/rnaseq.R
@@ -186,7 +186,7 @@ get.references.apcluster <- function(m,
                                      debug = FALSE,
                                      verbose.output = FALSE, ...) {
     ## Transpose the input count matrix
-    m = t(m)
+    mt = t(m)
     ## Reduce the size of graph
     isUniversal = sapply(1:ncol(mt), FUN = function(i) { return(all(mt[,i] > min.count)) })
     medium.threshold = sapply(1:nrow(mt), function(i) {