ok

2014-09-06 11:13:19 -07:00
parent 7879db8702
commit e9ed4eb1a2
17 changed files with 135 additions and 283 deletions
--- a/R-package/R/utils.R
+++ b/R-package/R/utils.R
@@ -52,7 +52,7 @@ xgb.Booster <- function(params = list(), cachelist = list(), modelfile = NULL) {
  if (length(params) != 0) {
    for (i in 1:length(params)) {
      p <- params[i]
-      .Call("XGBoosterSetParam_R", handle, names(p), as.character(p), 
+      .Call("XGBoosterSetParam_R", handle, gsub("\\.", "_", names(p)), as.character(p),
            PACKAGE = "xgboost")
    }
  }