P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-12-14 20:30:19 +01:00
Code Releases Activity

update MIC comparisons

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-04-05 16:44:43 +02:00
parent 4170def0ec
commit 0039cb05d6
13 changed files with 170 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/mean_amr_distance.R
View File

@@ -175,8 +175,8 @@ mean_amr_distance.data.frame <- function(x, ..., combine_SI = TRUE) {
#' @param row an index, such as a row number
#' @export
amr_distance_from_row <- function(amr_distance, row) {
meet_criteria(amr_distance, allow_class = c("double", "numeric"), is_finite = TRUE)
meet_criteria(row, allow_class = c("logical", "double", "numeric"))
meet_criteria(amr_distance, allow_class = "numeric", is_finite = TRUE)
meet_criteria(row, allow_class = c("logical", "numeric", "integer"))
if (is.logical(row)) {
row <- which(row)
}