fix: issue #120

CCBR · Oct 3, 2024 · 8dcd074 · 8dcd074
1 parent 9403e67
commit 8dcd074
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/workflow/scripts/assess_significance.R b/workflow/scripts/assess_significance.R
@@ -48,7 +48,7 @@ for (i in c(1:length(cnvs[, 1]))) {
   }
   KS <- function(values, normals) {
     resultks <- try(ks.test(values, score(normals)), silent = TRUE)
-    if (class(resultks) == "try-error") {
+    if (paste(class(resultks), collapse="_") == "try-error") {
       return(list("statistic" = NA, "p.value" = NA, "alternative" = NA, "method" = NA, "data.name" = NA))
     } else {
       resultks