allow standalone random

2014-08-31 14:07:44 -07:00
parent ba4f00d55d
commit 168f78623f
5 changed files with 77 additions and 31 deletions
--- a/R-package/R/utils.R
+++ b/R-package/R/utils.R
@@ -49,7 +49,6 @@ xgb.Booster <- function(params = list(), cachelist = list(), modelfile = NULL) {
    }
  }
  handle <- .Call("XGBoosterCreate_R", cachelist, PACKAGE = "xgboost")
-  .Call("XGBoosterSetParam_R", handle, "seed", "0", PACKAGE = "xgboost")
  if (length(params) != 0) {
    for (i in 1:length(params)) {
      p <- params[i]