mirror of
https://github.com/msberends/AMR.git
synced 2025-07-11 05:02:06 +02:00
revert back to pre-antibiogram
This commit is contained in:
2
R/pca.R
2
R/pca.R
@ -127,7 +127,7 @@ pca <- function(x,
|
||||
x <- cbind(x.bak[, vapply(FUN.VALUE = logical(1), x.bak, function(y) !is.numeric(y) & !all(is.na(y))), drop = FALSE], x)
|
||||
}
|
||||
|
||||
x <- ungroup(x) # would otherwise select the grouping vars
|
||||
x <- pm_ungroup(x) # would otherwise select the grouping vars
|
||||
x <- x[rowSums(is.na(x)) == 0, ] # remove columns containing NAs
|
||||
|
||||
pca_data <- x[, which(vapply(FUN.VALUE = logical(1), x, function(x) is.numeric(x))), drop = FALSE]
|
||||
|
Reference in New Issue
Block a user