R/mcgmj.R

In EMJMCMC: Evolutionary Mode Jumping Markov Chain Monte Carlo Expert Toolbox

# This file hosts small, internal functions that are used as auxiliary to other,
# user-level functions.

mcgmjpar = function(X,FUN,mc.cores) parallel::mclapply(X= X,FUN = FUN,mc.preschedule = TRUE,mc.cores = mc.cores)

mcgmjpse = function(X,FUN,mc.cores) if(.Platform[[1]]=="unix" & length(mc.cores)>0 & mc.cores >=2) parallel::mclapply(X= X,FUN = FUN,mc.preschedule = TRUE,mc.cores = mc.cores) else lapply(X,FUN)