From b48be64109bd1b03edf2c0004cf7f43d4868be31 Mon Sep 17 00:00:00 2001 From: danro9685 Date: Fri, 20 Sep 2024 14:38:07 +0200 Subject: [PATCH] minor fix --- R/mutational.signatures.discovery.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/R/mutational.signatures.discovery.R b/R/mutational.signatures.discovery.R index 0c2c32d..9c7ac03 100644 --- a/R/mutational.signatures.discovery.R +++ b/R/mutational.signatures.discovery.R @@ -177,6 +177,8 @@ signaturesDecomposition <- function( x, K, background_signature = NULL, quietly = TRUE, verbose = FALSE)) res_clusterEvalQ <- clusterEvalQ(parallel, library("nnls", warn.conflicts = FALSE, quietly = TRUE, verbose = FALSE)) + res_clusterEvalQ <- clusterEvalQ(parallel, library("RhpcBLASctl", warn.conflicts = FALSE, + quietly = TRUE, verbose = FALSE)) clusterExport(parallel, varlist = c(".fit_nmf", ".fit_seed", ".fit_regularized", ".fit_objective"), envir = environment()) clusterExport(parallel, varlist = c("x", "background_signature", @@ -532,6 +534,8 @@ signaturesCV <- function( x, beta, normalize_counts = FALSE, cross_validation_en quietly = TRUE, verbose = FALSE)) res_clusterEvalQ <- clusterEvalQ(parallel, library("nnls", warn.conflicts = FALSE, quietly = TRUE, verbose = FALSE)) + res_clusterEvalQ <- clusterEvalQ(parallel, library("RhpcBLASctl", warn.conflicts = FALSE, + quietly = TRUE, verbose = FALSE)) clusterExport(parallel, varlist = c(".fit_model", "signaturesAssignment", "verbose", "cross_validation_repetitions", "cross_validation_entries"), envir = environment()) clusterExport(parallel, varlist = c("cross_validation_iterations", "valid_entries", "num_entries",