# \donttest{
# Load sample data
data(sample_data_train)
data(sample_data_extern)
# Example usage with external tuning (default)
result <- tuneandtrainExtRF(sample_data_train, sample_data_extern, num.trees = 500)
print(result$best_min_node_size) # Optimal min.node.size
print(result$best_model) # Trained Random Forest model
# Note: est_auc is not returned when estperf = FALSE
# Example usage with internal tuning and external validation
result_internal <- tuneandtrainExtRF(sample_data_train, sample_data_extern,
estperf = TRUE, num.trees = 500)
print(result_internal$best_min_node_size) # Optimal min.node.size
print(result_internal$best_model) # Trained Random Forest model
print(result_internal$est_auc) # AUC on external validation dataset
# }
Run the code above in your browser using DataLab