styling of else in R

2014-08-27 16:46:47 -07:00 · 2014-08-27 16:46:47 -07:00 · ae4128fcb2
commit ae4128fcb2
parent 114cfb2167
1 changed files with 5 additions and 2 deletions
--- a/R-package/R/xgboost.R
+++ b/R-package/R/xgboost.R
@ -15,8 +15,11 @@ xgboost <- function(data = NULL, label = NULL, params = list(), nrounds = 10,
      dtrain <- data else stop("xgboost: Invalid input of data")
  }
  
-  if (verbose > 1) 
-    silent <- 0 else silent <- 1
+  if (verbose > 1) {
+    silent <- 0 
+  } else {
+    silent <- 1
+  }
  
  params <- append(params, list(silent = silent))
  params <- append(params, list(...))