added multiple core support

michbur · Aug 27, 2024 · 556ab3e · 556ab3e
1 parent c072cda
commit 556ab3e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -64,8 +64,8 @@ importFrom(graphics,mtext)
 importFrom(graphics,par)
 importFrom(graphics,plot)
 importFrom(graphics,points)
+importFrom(parallel,mclapply)
 importFrom(partitions,listParts)
-importFrom(pbapply,pblapply)
 importFrom(stats,cutree)
 importFrom(stats,dist)
 importFrom(stats,dmultinom)

diff --git a/R/test_features.R b/R/test_features.R
@@ -38,7 +38,7 @@
 #' removed using the threshold parameter.
 #' @export
 #' @importFrom Matrix colSums
-#' @importFrom pbapply pblapply
+#' @importFrom parallel mclapply
 #' @keywords nonparametric
 #' @references 
 #' Radivojac P, Obradovic Z, Dunker AK, Vucetic S, 
@@ -135,7 +135,7 @@ test_features <- function(target, features, criterion = "ig", adjust = "BH",
 
     names(dists) <- feature_size
 
-    setNames(unlist(pblapply(1L:ncol(features), function(ith_feature_id) {
+    setNames(unlist(mclapply(1L:ncol(features), function(ith_feature_id) {
       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"]