refinement of R package

2014-08-27 12:57:37 -07:00
parent 0fe5470a4f
commit d747172d37
6 changed files with 89 additions and 60 deletions
--- a/R-package/R/xgb.save.R
+++ b/R-package/R/xgb.save.R
@@ -7,10 +7,6 @@ xgb.save <- function(handle, fname) {
        .Call("XGBoosterSaveModel_R", handle, fname, PACKAGE="xgboost")
        return(TRUE)
    }
-    if (class(handle) == "xgb.DMatrix") {
-        .Call("XGDMatrixSaveBinary_R", handle, fname, as.integer(FALSE), PACKAGE="xgboost")
-        return(TRUE)
-    }
    stop("xgb.save: the input must be either xgb.DMatrix or xgb.Booster")
    return(FALSE)
 }