Update CBS.R

fix using of seed in CBS.R
CenterForMedicalGeneticsGhent · Aug 28, 2024 · 8d4ce38 · 8d4ce38
1 parent 8e2d42d
commit 8d4ce38
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/wisecondorx/include/CBS.R b/src/wisecondorx/include/CBS.R
@@ -64,7 +64,7 @@ for.cbs <- for.cbs[cbs.mask,]
 
 # CBS
 
-if (is.na(seed) || seed == '') {
+if (!(is.na(seed) || seed == '')) {
   set.seed(seed)
 }
 CNA.object <- CNA(for.cbs$y, for.cbs$chromosome, for.cbs$x, data.type = "logratio", sampleid = "X")
@@ -129,4 +129,4 @@ for (row.i in 1:nrow(CNA.object)){
 CNA.object$s <- CNA.object$s - 1 # Make python compliant
 
 # Write output
-write_json(CNA.object, out.file)
+write_json(CNA.object, out.file)