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

[R] Fix warning from DT about mismatched names (#10743)

Browse Source
This commit is contained in:
david-cortes 2024-09-28 23:52:15 +02:00 committed by GitHub
parent c9f89c4241
commit 429f956111
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
R-package/R/xgb.plot.multi.trees.R
View File

@ -109,11 +109,10 @@ xgb.plot.multi.trees <- function(model, features_keep = 5, plot_width = NULL, pl
edges.dt <- data.table::rbindlist( edges.dt <- data.table::rbindlist(
l = list( l = list(
tree.matrix[Feature != "Leaf", .(abs.node.position, Yes)], tree.matrix[Feature != "Leaf", .(From = abs.node.position, To = Yes)],
tree.matrix[Feature != "Leaf", .(abs.node.position, No)] tree.matrix[Feature != "Leaf", .(From = abs.node.position, To = No)]
) )
) )
data.table::setnames(edges.dt, c("From", "To"))
edges.dt <- edges.dt[, .N, .(From, To)] edges.dt <- edges.dt[, .N, .(From, To)]
edges.dt[, N := NULL] edges.dt[, N := NULL]