From a34761d1aced421b824804b3b70d2bfa59553afd Mon Sep 17 00:00:00 2001 From: KristinaMiljkovic Date: Tue, 23 Jul 2024 16:16:49 -0700 Subject: [PATCH] Solution to threshold graphing problem was determined to be a result of the as.factor function assigning levels to integers as characters in nonnumerically sorted ordered. Solution was to remove character casting. --- R/misc.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/misc.r b/R/misc.r index 55431c2..8d55543 100644 --- a/R/misc.r +++ b/R/misc.r @@ -39,7 +39,7 @@ recode.matrix <- function(data, ...) { # Checking the size of the matrix dn <- dimnames(data) - data <- as.factor(as.character(as.vector(data))) + data <- as.factor(as.vector(data)) # Petar & Kristina changed as.factor(as.character(as.vector(data))) n <- length(data) output <- cbind(data[1:(n/2)], data[(n/2+1):n]) data <- unique(data)