From 8d4ce38254519dadbe059c235d4cd31698ccdf0c Mon Sep 17 00:00:00 2001
From: Koen Swaerts <66127564+koen-swaerts@users.noreply.github.com>
Date: Wed, 28 Aug 2024 14:31:32 +0200
Subject: [PATCH] Update CBS.R

fix using of seed in CBS.R
---
 src/wisecondorx/include/CBS.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/wisecondorx/include/CBS.R b/src/wisecondorx/include/CBS.R
index fe25cf9..ac99253 100644
--- 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)
\ No newline at end of file
+write_json(CNA.object, out.file)