Блог

Я пытаюсь воспроизвести примеры настройки гиперпараметров с помощью байесовского поиска с этого сайта: https://www.r-bloggers.com/2020/05/bayesian-hyperparameters-optimization/ , и при запуске моего кода получила следующую ошибку: Ошибка: Все модели вышли из строя. См .столбец. примечания. Запустите rlang::last_error() , чтобы узнать, где произошла ошибка.

Вот мой текущий код. Ошибка возникает при запуске кода, начинающегося в строке tuned_PI. Пожалуйста, дайте мне знать, если у вас есть какие-либо предложения. Я очень новичок в пакете tidymodels и настройке гиперпараметров.

 training_index <- sample(nrow(data)*0.70)
test_index     <- setdiff(seq(1:nrow(data)), training_index )

# Get the training data and test data
training_data  <- data[training_index, ]
test_data      <- data[test_index, ]

model_tune <- rand_forest(mtry = tune(), min_n = tune(), trees = tune()) %>% 
  set_engine("ranger", seed=222) %>% 
  set_mode("classification")
set.seed(1234)
folds <- vfold_cv(training_data, v=5, strata = DEATH_EVENT)
tune_wf <- workflow() %>% 
  add_model(model_tune) %>% 
  add_formula(DEATH_EVENT~.)
tuned_PI <- tune_wf %>% 
  tune_bayes(resamples = folds,
        param_info=parameters(mtry(range = c(1,10)), min_n(range = c(1,10)), trees(range = c(480,540))),
             metrics=metric_set(sensitivity),
           objective=prob_improve(trade_off = 0.01))