# Note: For obtaining hyoperparameters table the user needs to
# complete till fine_tuning( ) function.
set.seed(123) # For reproducibility
wrap_object <- preprocessing(df = sim_data[1:300 ,],
formula = psych_well ~ depression + resilience,
task = "regression")
wrap_object <- build_model(wrap_object, "Random Forest",
hyperparameters = list(mtry = 2, trees = 3))
wrap_object <- fine_tuning(wrap_object, "Grid Search CV")
# And then, you can obtain the best hyperparameters table.
table_best_hyp <- table_best_hyperparameters(wrap_object)
Run the code above in your browser using DataLab