fixed silly RunModels bug

zoonproject · Sep 10, 2015 · 23b6d3f · 23b6d3f
1 parent 5f9925b
commit 23b6d3f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/zoonHelpers.R b/R/zoonHelpers.R
@@ -175,7 +175,7 @@ RunModels <- function(df, modelFunction, paras, workEnv){
   # If external validation dataset exists, predict that;.
   if(0 %in% df$fold){
 
-    pred <- ZoonPredict(modelFold,
+    pred <- ZoonPredict(m,
                         newdata = df[df$fold == 0, 6:NCOL(df), drop = FALSE])
 
     dfOut$predictions[df$fold == 0] <- pred