Browse code

Added --num-eigen-vectors to PureCN.R

Markus Riester authored on 10/05/2024 21:47:04
Showing 3 changed files

... ...
@@ -2,8 +2,8 @@ Package: PureCN
2 2
 Type: Package
3 3
 Title: Copy number calling and SNV classification using
4 4
     targeted short read sequencing
5
-Version: 2.11.0
6
-Date: 2024-04-24
5
+Version: 2.11.1
6
+Date: 2024-05-10
7 7
 Authors@R: c(person("Markus", "Riester",
8 8
                     role = c("aut", "cre"),
9 9
                     email = "[email protected]",
... ...
@@ -1,3 +1,14 @@
1
+Changes in version 2.12.0
2
+-------------------------
3
+
4
+NEW FEATURES
5
+
6
+    o Added --num-eigen-vectors to PureCN.R to set the number of eigen vectors.
7
+      Tuning parameter for coverage normalization. Default should in most cases
8
+      be a good compromise between removing most normal noise and not
9
+      overfitting to pool of normal samples.
10
+
11
+
1 12
 Changes in version 2.10.0
2 13
 -------------------------
3 14
 
... ...
@@ -71,6 +71,9 @@ option_list <- list(
71 71
     make_option(c("--min-fraction-offtarget"), action = "store", type = "double",
72 72
         default = formals(PureCN::filterIntervals)$min.fraction.offtarget,
73 73
         help = "Interval Filter: Ignore off-target internals when only the specified fraction of all intervals are off-target intervals  [default %default]"),
74
+    make_option(c("--num-eigen-vectors"), action = "store", type = "integer",
75
+        default = formals(PureCN::calculateTangentNormal)$num.eigen,
76
+        help = "Coverage Normalization: Number of eigen vectors when --normaldb is provided [default %default]"),
74 77
     make_option(c("--fun-segmentation"), action = "store", type = "character", default = "CBS",
75 78
         help = "Segmentation: Algorithm. CBS, PSCBS, GATK4, Hclust, or none [default %default]"),
76 79
     make_option(c("--alpha"), action = "store", type = "double",
... ...
@@ -283,7 +286,7 @@ if (file.exists(file.rds) && !opt$force) {
283 286
         if (!is.null(normalDB)) {
284 287
             if (is.null(normal.coverage.file)) {
285 288
                 normal.coverage.file <- calculateTangentNormal(tumor.coverage.file,
286
-                    normalDB)
289
+                    normalDB, num.eigen = opt[["num_eigen_vectors"]])
287 290
             }
288 291
         } else if (is.null(normal.coverage.file) && is.null(seg.file) &&
289 292
                    is.null(log.ratio)) {