Minor bug fix

jlmaier12 · Dec 18, 2024 · 0d11abc · 0d11abc
1 parent 223706f
commit 0d11abc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/noPattern.R b/R/noPattern.R
@@ -14,10 +14,11 @@ noPattern <- function(viralSubset) {
     diff1 <- mean(abs(viralSubset[, 2] - pattern1))
     diff2 <- mean(abs(viralSubset[, 2] - pattern2))
     diff <- ifelse(diff1 < diff2, diff1, diff2)
+    value <- ifelse(diff1 < diff2, median(viralSubset[, 2]), mean(viralSubset[, 2]))
     bestMatchInfo <-
         list(
             diff,
-            mean(viralSubset[, 2]),
+            value,
             nrow(viralSubset),
             "NA",
             1,