Format info about models

Format info about models

format_models_details(models)

Arguments

models

The result of `choose_best_models()` function or just a list of models from engine.

Value

Prints formatted text.

Examples

data(iris)
iris_bin          <- iris[1:100, ]
type              <- guess_type(iris_bin, 'Species')
preprocessed_data <- preprocessing(iris_bin, 'Species', type)
#> Error in if (advanced) {    del_cor <- delete_correlated_values(pre_data, y, verbose = verbose)    pre_data <- del_cor$data    pre_data <- delete_id_columns(pre_data)    pre_data <- boruta_selection(pre_data, y)}: argument is not interpretable as logical
preprocessed_data <- preprocessed_data$data
#> Error in eval(expr, envir, enclos): object 'preprocessed_data' not found
split_data <-
  train_test_balance(preprocessed_data, 'Species', balance = FALSE)
#> Error in train_test_balance(preprocessed_data, "Species", balance = FALSE): object 'preprocessed_data' not found
train_data <-
  prepare_data(split_data$train,
               'Species',
               c('ranger', 'xgboost', 'decision_tree', 'lightgbm', 'catboost'))
#> Error in as.data.frame(unclass(data), stringsAsFactors = TRUE): object 'split_data' not found
test_data <- prepare_data(split_data$test,
            'Species',
             engine = c('ranger', 'xgboost', 'decision_tree', 'lightgbm', 'catboost'),
             predict = TRUE,
             train = split_data$train)
#> Error in as.data.frame(unclass(data), stringsAsFactors = TRUE): object 'split_data' not found
models <-  train_models(train_data,
       'Species',
       engine = c('ranger', 'xgboost', 'decision_tree', 'lightgbm', 'catboost'),
       type = type)
#> Error in ranger::ranger(dependent.variable.name = y, data = data$ranger_data,     classification = TRUE, probability = TRUE): object 'train_data' not found
predictions <-
  predict_models(models,
                 test_data,
                 'Species',
                 engine = c('ranger', 'xgboost', 'decision_tree', 'lightgbm', 'catboost'),
                 type = type)
#> Error in predict(models[[i]], data$ranger_data): object 'models' not found
score <-
    score_models(models,
                 predictions,
                 observed = split_data$test$Species,
                 type = type)
#> Error in matrix(nrow = length(models), ncol = length(metrics_binary_clf) +     nr_add_col): object 'models' not found
best_models <- choose_best_models(models,
              score = score,
              number = 3)
#> Error in choose_best_models(models, score = score, number = 3): object 'models' not found
format_models_details(best_models)
#> Error in format_models_details(best_models): object 'best_models' not found