# \donttest{
set.seed(42)
n_obs <- 200
X_toy <- data.frame(
FeatureA = rnorm(n_obs),
FeatureB = runif(n_obs, 0, 100)
)
y_toy <- factor(sample(c("Control", "Case"), n_obs, replace = TRUE),
levels = c("Control", "Case"))
# Train the model with default parameters
gbm_model <- gbm_dia(X_toy, y_toy)
print(gbm_model)
# Train with extensive tuning (random search)
gbm_model_tuned <- gbm_dia(X_toy, y_toy, tune = TRUE, tune_length = 30)
print(gbm_model_tuned)
# }
Run the code above in your browser using DataLab