diff --git a/R/rsimilarity.R b/R/rsimilarity.R index dc11e46d3dd83d15c524f53064c5e7782bcc1f0a..127209124940e08275e8daa91e2f61b3d8620240 100644 --- a/R/rsimilarity.R +++ b/R/rsimilarity.R @@ -31,11 +31,8 @@ rsimilarity <- function(Rn, FUN="invRMSE", parallel=FALSE, cores=NULL){ if(ncol(Rn) < 2) stop("Rn should have at least two columns") # Parallelisation - if(parallel & (missing(cores)|is.null(cores))){ - cores <- parallel::detectCores() - }else{ - cores <- 1 - } + if(parallel & (missing(cores)|is.null(cores))) cores <- parallel::detectCores() + if(!parallel) cores <- 1 # Initialise msim n <- ncol(Rn)