add a missing check for verbose field in R's SpeeDRF call

viddtvcom · Jun 27, 2014 · 022c836 · 022c836
1 parent 755722e
commit 022c836
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/h2o-package/R/Algorithms.R b/R/h2o-package/R/Algorithms.R
@@ -961,6 +961,8 @@ h2o.SpeeDRF <- function(x, y, data, classification=TRUE, nfolds=0, validation,
   if(nfolds == 1) stop("nfolds cannot be 1")
   if(!missing(validation) && class(validation) != "H2OParsedData")
     stop("validation must be an H2O parsed dataset")
+
+  if(missing(verbose)) {verbose <- FALSE}
 
   if(missing(validation) && nfolds == 0) {
     # Default to using training data as validation
@@ -1349,4 +1351,4 @@ plot.H2OPerfModel <- function(x, type = "cutoffs", ...) {
 
 .toupperFirst <- function(str) {
   paste(toupper(substring(str, 1, 1)), substring(str, 2), sep = "")
-}
+}