diff --git a/R/test_features.R b/R/test_features.R
index e517293..2392495 100644
--- 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) <=