library(desirability2)
library(dplyr)
# Remove outcome
ames_scores_results <- ames_scores_results |>
dplyr::select(-outcome)
ames_scores_results
show_best_desirability_num(
ames_scores_results,
maximize(cor_pearson, low = 0, high = 1)
)
show_best_desirability_num(
ames_scores_results,
maximize(cor_pearson, low = 0, high = 1),
maximize(imp_rf)
)
show_best_desirability_num(
ames_scores_results,
maximize(cor_pearson, low = 0, high = 1),
maximize(imp_rf),
maximize(infogain)
)
show_best_desirability_num(
ames_scores_results,
maximize(cor_pearson, low = 0, high = 1),
maximize(imp_rf),
maximize(infogain),
num_terms = 2
)
show_best_desirability_num(
ames_scores_results,
target(cor_pearson, low = 0.2, target = 0.255, high = 0.9)
)
show_best_desirability_num(
ames_scores_results,
constrain(cor_pearson, low = 0.2, high = 1)
)
Run the code above in your browser using DataLab