fixed typo

michbur · Jun 20, 2024 · 1e8612d · 1e8612d
1 parent e824499
commit 1e8612d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/test_features.R b/R/test_features.R
@@ -138,7 +138,7 @@ test_features <- function(target, features, criterion = "ig", adjust = "BH",
       estm <- crit_function(target, features[, ith_feature_id, drop = FALSE])
       dist <- dists[[paste(sum(features[, ith_feature_id, drop = FALSE]))]]
       1 - dist[which.max(dist[, "criterion"] >= estm - 1e-15), "cdf"]
-    })), colNames(features))
+    })), colnames(features))
   } else {
     # slow version
     rowMeans(crit_function(target, features) <=