# \donttest{
# Load sample data
data(sample_data_train)
# Example usage
mstop_seq <- seq(5, 5000, by = 5)
result <- tuneandtrainIntBoost(sample_data_train, mstop_seq, nu = 0.1)
result$best_mstop
result$best_model
# }
Run the code above in your browser using DataLab