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

fixed bug

Browse Source
This commit is contained in:
El Potaeto 2015-02-15 17:30:39 +01:00
parent def2674dd1
commit f84cc0843f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
R-package/R/xgb.importance.R
View File

@ -93,7 +93,7 @@ xgb.importance <- function(feature_names = NULL, filename_dump = NULL, model = N
# Co-occurence computation # Co-occurence computation
if(!is.null(data) & !is.null(label) & nrow(result) > 0) { if(!is.null(data) & !is.null(label) & nrow(result) > 0) {
apply(data[, result[,Feature]], 2, . %>% target %>% sum) -> vec apply(data[, result[,Feature],drop=FALSE], 2, . %>% target %>% sum) -> vec
result <- result[Feature == names(vec), "RealCover":= as.numeric(vec), with = F][, "RealCover %" := RealCover / sum(label)] result <- result[Feature == names(vec), "RealCover":= as.numeric(vec), with = F][, "RealCover %" := RealCover / sum(label)]
} }