Hendrik/xgboost
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

styling of else in R

Browse Source
This commit is contained in:
unknown 2014-08-27 16:46:47 -07:00
parent 114cfb2167
commit ae4128fcb2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
R-package/R/xgboost.R
View File

@ -15,8 +15,11 @@ xgboost <- function(data = NULL, label = NULL, params = list(), nrounds = 10,
dtrain <- data else stop("xgboost: Invalid input of data") dtrain <- data else stop("xgboost: Invalid input of data")
} }
if (verbose > 1) if (verbose > 1) {
silent <- 0 else silent <- 1 silent <- 0
} else {
silent <- 1
}
params <- append(params, list(silent = silent)) params <- append(params, list(silent = silent))
params <- append(params, list(...)) params <- append(params, list(...))