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

refinement of R package

Browse Source
This commit is contained in:
unknown
2014-08-27 12:57:37 -07:00
parent 0fe5470a4f
commit d747172d37
6 changed files with 89 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R-package/R/xgb.DMatrix.R
View File

@@ -1,5 +1,5 @@
# constructing DMatrix
xgb.DMatrix <- function(data, missing=0.0, ...) {
xgb.DMatrix <- function(data, info=list(), missing=0.0, ...) {
if (typeof(data) == "character") {
handle <- .Call("XGDMatrixCreateFromFile_R", data, as.integer(FALSE), PACKAGE="xgboost")
} else if(is.matrix(data)) {
@@ -11,7 +11,7 @@ xgb.DMatrix <- function(data, missing=0.0, ...) {
}
dmat <- structure(handle, class="xgb.DMatrix")
info = list(...)
info = append(info,list(...))
if (length(info)==0)
return(dmat)
for (i in 1:length(info)) {