R/parLapplySB.R

In dclone: Data Cloning and MCMC Tools for Maximum Likelihood Methods

Defines functions parLapplySB

Documented in parLapplySB

parLapplySB <- 
function(cl, x, size = 1, fun, ...)
{
    require(snow)
    fun <- match.fun(fun)
    s <- clusterSplitSB(cl, x, size)
    id <- clusterSplitSB(cl, 1:length(x), size)
    res <- clusterApply(cl, s, lapply, fun, ...)
    res <- docall(c, res)
    res <- res[order(unlist(id))]
    res
}

Try the dclone package in your browser