# NOT RUN {
library("EIX")
library("Matrix")
sm <- sparse.model.matrix(left ~ . - 1, data = HR_data)
library("xgboost")
param <- list(objective = "binary:logistic", max_depth = 2)
xgb_model <- xgboost(sm, params = param, label = HR_data[, left] == 1, nrounds = 25, verbose=0)
inter <- interactions(xgb_model, sm, option = "interactions")
inter
plot(inter)
inter <- interactions(xgb_model, sm, option = "pairs")
inter
plot(inter)
# }
# NOT RUN {
library(lightgbm)
train_data <- lgb.Dataset(sm, label = HR_data[, left] == 1)
params <- list(objective = "binary", max_depth = 2)
lgb_model <- lgb.train(params, train_data, 25)
inter <- interactions(lgb_model, sm, option = "interactions")
inter
plot(inter)
inter <- interactions(lgb_model, sm, option = "pairs")
inter
plot(inter)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab