diff --git a/R/msaAttribute.R b/R/msaAttribute.R index 092fb0d5..4e779601 100644 --- a/R/msaAttribute.R +++ b/R/msaAttribute.R @@ -300,10 +300,8 @@ msaAttribute <- function(jaspResults, dataset, options, ...) { } for (measurement in measurements) { - # if (is.numeric(dataset[[measurement]])) { dataset[measurement] <- as.character(dataset[[measurement]]) dataset[standards] <- as.character(dataset[[standards]]) - # } } matchesWithin <- vector(mode = "numeric") @@ -482,9 +480,7 @@ msaAttribute <- function(jaspResults, dataset, options, ...) { numberInspected <- length(unique(dataset[[parts]])) for (measurement in measurements) { - # if (is.numeric(dataset[[measurement]])) { dataset[measurement] <- as.character(dataset[[measurement]]) - # } } matchesWithin <- vector(mode = "numeric")