fct_features_indeces <- train_set %>% sapply(., is.factor) %>% which() %>% unname()
train_pool <- catboost.load_pool(train_set,
label = as.integer(train_target),
cat_features = fct_features_indeces - 1)
fit_params <- list(iterations = 1e3,
loss_function = 'MultiClass',
border_count = c(128, 255),
depth = list(5, 10),
learning_rate = 0.03,
l2_leaf_reg = 3.5,
task_type = 'CPU')
model_test <- catboost.train(train_pool, params = fit_params)