# \donttest{
required_modules <- c("sklearn", "boruta")
modules_available <- sapply(required_modules, reticulate::py_module_available)
if (all(modules_available)) {
# Assuming X_train, y_train, pipeline, and params are predefined
# Define sklearn modules (assuming 'define_sklearn_modules' is defined)
sklearn_modules <- define_sklearn_modules()
# Perform a grid search
optimal_model <- perform_grid_search(X_train, y_train, pipeline, "accuracy",
params, "grid", NULL, 1, sklearn_modules, NULL)
# Perform a random search
optimal_model_random <- perform_grid_search(X_train, y_train, pipeline, "accuracy",
params, "random", 10, 1, sklearn_modules, 42)
} else {
unavailable_modules <- names(modules_available[!modules_available])
message(paste("Required Python modules not available:",
paste(unavailable_modules, collapse=', '), ". Skipping example."))
}
# }
Run the code above in your browser using DataLab