fix with new predict

2015-02-09 16:25:00 -08:00
parent f7c838ffaa
commit 0aef62dabc
4 changed files with 24 additions and 21 deletions
--- a/R-package/R/xgb.load.R
+++ b/R-package/R/xgb.load.R
@@ -19,6 +19,7 @@
 xgb.load <- function(modelfile) {
  if (is.null(modelfile)) 
    stop("xgb.load: modelfile cannot be NULL")
+  
  bst <- list(handle = NULL,raw = NULL)
  class(bst) <- 'xgb.Booster'
  bst$handle <- xgb.Booster(modelfile = modelfile)