Bug in additional MAE estimate when model fails for PR #657

topepo · Jul 8, 2017 · ac12060 · ac12060
1 parent a8de336
commit ac12060
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pkg/caret/R/postResample.R b/pkg/caret/R/postResample.R
@@ -105,7 +105,7 @@ postResample <- function(pred, obs)
     {
       if(length(obs) + length(pred) == 0)
         {
-          out <- rep(NA, 2)
+          out <- rep(NA, 3)
         } else {
           if(length(unique(pred)) < 2 || length(unique(obs)) < 2)
             {