R/parLapplySLB.R

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

parLapplySLB <- 
function(cl, x, size=1, fun, ...) 
{
    require(snow)
    fun <- match.fun(fun)
    m <- length(x)
    size <- rep(size, m)[1:m]
    id <- order(size, decreasing=TRUE)
    s <- x[id]
    id <- (1:m)[id]
    res <- clusterApplyLB(cl, s, fun, ...)
    res <- res[order(id)]
    res
}