Attempt in fixing #363.

lima1 · Apr 24, 2024 · 822e4df · 822e4df
1 parent e8ea7b3
commit 822e4df
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/segmentationCBS.R b/R/segmentationCBS.R
@@ -436,6 +436,7 @@ plot.cnv = TRUE, max.segments = NULL, min.logr.sdev = 0.15, chr.hash = chr.hash)
 }
 
 .getAverageWeightPV <- function(seg, weights, perm = 2000) {
+    perm <- min(length(weights), 2000)
     num_marks <- sort(unique(seg$num.mark))
     .do_permutation <- function(i, l) {
         if (l > 25) return(0)