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

fix arg check

Browse Source
This commit is contained in:
El Potaeto 2015-01-06 13:59:14 +01:00
parent c64bfad5bb
commit a6c588f90d
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

@ -47,7 +47,7 @@ xgb.importance <- function(feature_names = NULL, filename_dump = NULL){
if (!class(feature_names) %in% c("character", "NULL")) { if (!class(feature_names) %in% c("character", "NULL")) {
stop("feature_names: Has to be a vector of character or NULL if the model dump already contains feature name. Look at this function documentation to see where to get feature names.") stop("feature_names: Has to be a vector of character or NULL if the model dump already contains feature name. Look at this function documentation to see where to get feature names.")
} }
if (class(filename_dump) != "character" & file.exists(filename_dump)) { if (class(filename_dump) != "character" || !file.exists(filename_dump)) {
stop("filename_dump: Has to be a path to the model dump file.") stop("filename_dump: Has to be a path to the model dump file.")
} }
text <- readLines(filename_dump) text <- readLines(filename_dump)