Factored basic workflow for model and predictions

topepo · Jul 12, 2017 · 51b3497 · 51b3497
1 parent 969bc32
commit 51b3497
Show file tree

Hide file tree

Showing 2 changed files with 88 additions and 174 deletions.
diff --git a/pkg/caret/R/recipes.R b/pkg/caret/R/recipes.R
@@ -990,8 +990,6 @@ train_rec <- function(rec, dat, info, method, ctrl, lev, testing = FALSE, ...) {
 
   result <- foreach(iter = seq(along = resampleIndex), .combine = "c", .packages = pkgs, .export = export) %:%
     foreach(parm = 1L:nrow(info$loop), .combine = "c", .packages = pkgs, .export = export)  %op% {
-
-      testing <- FALSE
 
       if(!(length(ctrl$seeds) == 1L && is.na(ctrl$seeds))) 
         set.seed(ctrl$seeds[[iter]][parm])