если ты через Igraph решаеш
то вот эта штука дает интересный результат :)
hub_score(main_graph)
по крайней мере я на нее возлагаю все надежды
и потом прогнать через
library(rpart)
library(rpart.plot)
tree <- rpart(Target ~ weight + time + deg_graph + str_graph + ecc_graph + eigen_graph + hub_score
, data = sf_result_5, method = "class"
# , control = rpart.control(cp = 1e-05)
)
# Вот эта самая кошеная
rpart.plot(tree, type = 4, extra = 101, under = FALSE, box.palette = "auto",
fallen.leaves = FALSE, snip = FALSE, shadow.col = "gray")
пс - еще ни одного сабмита