if (FALSE) {
  restoreResults <- TRUE
  sfInit(parallel=FALSE)
  ## Execute in cluster or sequential.
  sfLapply(1:10, exp)
  ## Execute with intermediate result saving and restore on wish.
  sfClusterApplySR(1:100, exp, name="CALC_EXP", restore=restoreResults)
  sfClusterApplySR(1:100, sum, name="CALC_SUM", restore=restoreResults)
  sfStop()
  ##
  ## Small bootstrap example.
  ##
  sfInit(parallel=TRUE, cpus=2)
  require(mvna)
  data(sir.adm)
  sfExport("sir.adm", local=FALSE)
  sfLibrary(cmprsk)
  wrapper <- function(a) {
    index <- sample(1:nrow(sir.adm), replace=TRUE)
    temp <- sir.adm[index, ]
    fit <- crr(temp$time, temp$status, temp$pneu, failcode=1, cencode=0)
    return(fit$coef)
  }
  result <- sfLapply(1:100, wrapper)
  mean( unlist( rbind( result ) ) )
  sfStop()
}
Run the code above in your browser using DataLab