# Load sample data
data(sample_data_train)
data(sample_data_extern)
# Example usage with external tuning (default)
mstop_seq <- seq(50, 500, by = 50)
result <- tuneandtrainExtBoost(sample_data_train, sample_data_extern,
mstop_seq = mstop_seq, nu = 0.1)
print(result$best_mstop) # Optimal mstop
print(result$best_model) # Trained Boosting model
# Note: est_auc is not returned when estperf = FALSE
# Example usage with internal tuning and external validation
result_internal <- tuneandtrainExtBoost(sample_data_train, sample_data_extern,
estperf = TRUE, mstop_seq = mstop_seq, nu = 0.1)
print(result_internal$best_mstop) # Optimal mstop
print(result_internal$best_model) # Trained Boosting model
print(result_internal$est_auc) # AUC on external validation dataset
Run the code above in your browser using DataLab