Merge pull request #365 from lima1/issue_363

Issue 363
lima1 · Apr 24, 2024 · 354413c · 354413c
2 parents e8ea7b3 + 37f0097
commit 354413c
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), perm)
     num_marks <- sort(unique(seg$num.mark))
     .do_permutation <- function(i, l) {
         if (l > 25) return(0)