Update mclosest.R

rformassspectrometry · Sep 29, 2023 · 497ca42 · 497ca42
1 parent 5f90cdc
commit 497ca42
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/mclosest.R b/R/mclosest.R
@@ -68,9 +68,9 @@ mclosest <- function(x,
   ## Initialize a vector to store closest row indices
   closest_indices <- rep(NA_integer_ , nrow(x))
   for (i in seq_len(nrow(x))) {
-    abdiff <- abs(table - rep(x[i, ], each = nrt))
+    abdiff <- abs(table - rep(x[i, ], each = nr))
     ## Remove differences lower than tolerance
-    abdiff[abdiff > rep((tolerance + ppm(x[i,], ppm)), each = nrt)] <- NA
+    abdiff[abdiff > rep((tolerance + ppm(x[i,], ppm)), each = nr)] <- NA
     ranked <- apply(abdiff, 2, rank, na.last="keep")
     rowProd <- apply(ranked, 1, prod)
     res <- which.min(rowProd)