diff --git a/DESCRIPTION b/DESCRIPTION
index 6a844944..272b1141 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,5 +1,5 @@
Package: AMR
-Version: 1.2.0.9024
+Version: 1.2.0.9025
Date: 2020-07-03
Title: Antimicrobial Resistance Analysis
Authors@R: c(
diff --git a/NEWS.md b/NEWS.md
index c9d5a484..2c71df03 100755
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,4 @@
-# AMR 1.2.0.9024
+# AMR 1.2.0.9025
## Last updated: 03-Jul-2020
### New
diff --git a/R/rsi_calc.R b/R/rsi_calc.R
index 343b08c7..c92d9ba0 100755
--- a/R/rsi_calc.R
+++ b/R/rsi_calc.R
@@ -116,7 +116,10 @@ rsi_calc <- function(...,
x_transposed <- as.list(as.data.frame(t(x)))
if (only_all_tested == TRUE) {
# no NAs in any column
- numerator <- sum(sapply(x_transposed, function(y) !any(is.na(y)) & any(y %in% ab_result, na.rm = TRUE)))
+ y <- apply(X = as.data.frame(lapply(x, as.integer), stringsAsFactors = FALSE),
+ MARGIN = 1,
+ FUN = base::min)
+ numerator <- sum(as.integer(y) %in% as.integer(ab_result), na.rm = TRUE)
denominator <- sum(sapply(x_transposed, function(y) !(any(is.na(y)))))
} else {
# may contain NAs in any column
diff --git a/docs/404.html b/docs/404.html
index bd952060..21defab2 100644
--- a/docs/404.html
+++ b/docs/404.html
@@ -81,7 +81,7 @@
NEWS.md
-