Parallel model training in R

library("foreach")
library("parallel")
library("doParallel")


cl <- makeCluster(5)
registerDoParallel(cl)

timestamp()

list.model <- foreach(jj=1:nrow(iter.Seq), .packages = c('hmeasure', 'mlr', 'ada', 'pROC', 'ggplot2', 'data.table', "plyr")) %dopar% {

#-- Do stuff here



  list(model.Final, train.set, test.set, train.decile, test.decile, HMeasure(pred.trn$truth, pred.trn$prob.1)$metrics, HMeasure(pred.tst$truth, pred.tst$prob.1)$metrics)
}
stopCluster(cl)