Fully reproducible parallel models using caret

by

One easy way to run fully reproducible model in parallel mode using the caret package is by using the seeds argument when calling the train control. Here the above question is resolved, check the trainControl help page for further infos.

library(doParallel); library(caret)

#create a list of seed, here change the seed for each resampling
set.seed(123)

#length is = (n_repeats*nresampling)+1
seeds <- vector(mode = "list", length = 11)

#(3 is the number of tuning parameter, mtry for rf, here equal to ncol(iris)-2)
for(i in 1:10) seeds[[i]]<- sample.int(n=1000, 3)

#for the last model
seeds[[11]]<-sample.int(1000, 1)

 #control list
 myControl <- trainControl(method='cv', seeds=seeds, index=createFolds(iris$Species))

 #run model in parallel
 cl <- makeCluster(detectCores())
 registerDoParallel(cl)
 model1 <- train(Species~., iris, method='rf', trControl=myControl)

 model2 <- train(Species~., iris, method='rf', trControl=myControl)
 stopCluster(cl)

 #compare
 all.equal(predict(model1, type="prob"), predict(model2, type="prob"))
[1] TRUE

More Related Contents:

  1. Example of using dput()
  2. Error when using predict() on a randomForest object trained with caret’s train() using formula
  3. Extract the coefficients for the best tuning parameters of a glmnet model in caret
  4. Saving and loading a model in R
  5. R not finding package even after package installation
  6. Normalizing y-axis in histograms in R ggplot to proportion by group
  7. Add color to boxplot – “Continuous value supplied to discrete scale” error
  8. Grid in an R plot
  9. How to sort a character vector according to a specific order?
  10. Data input via shinyTable in R shiny application
  11. ggplot2: Splitting facet/strip text into two lines
  12. dplyr summarize with subtotals
  13. Deleting every n-th row in a dataframe
  14. ggplot: Order bars in faceted bar chart per facet
  15. How to convert certain columns only to numeric?
  16. How to write contents of help to a file from within R?
  17. annotate boxplot in ggplot2
  18. R issue with rounding milliseconds
  19. ggplot2: Flip axes and maintain aspect ratio of data
  20. Calculate monthly average of ts object
  21. R X-axis Date Labels using plot()
  22. Merging data.tables uses more than 10 GB RAM
  23. Multi-line ggplot Title With Different Font Size, Face, etc [duplicate]
  24. apply function to elements over a list
  25. Why does unlist() turn date types into numeric?
  26. Drawing a pyramid plot
  27. Test if an argument of a function is set or not in R
  28. How to remove rows with 0 values using R
  29. date format in tooltip of ggplotly
  30. R text file and text mining…how to load data

Leave a Comment