# \donttest{
# Load sample data
data(sample_data_train)
data(sample_data_extern)
# Example usage with external tuning (default)
result <- tuneandtrainExtSVM(sample_data_train, sample_data_extern, kernel = "linear",
cost_seq = 2^(-15:15), scale = FALSE)
print(result$best_cost) # Optimal cost
print(result$best_model) # Final trained model
# Note: est_auc is not returned when estperf = FALSE
# Example usage with internal tuning and external validation
result_internal <- tuneandtrainExtSVM(sample_data_train, sample_data_extern,
estperf = TRUE, kernel = "linear", cost_seq = 2^(-15:15), scale = FALSE)
print(result_internal$best_cost) # Optimal cost
print(result_internal$best_model) # Final trained model
print(result_internal$est_auc) # AUC on external validation dataset
# }
Run the code above in your browser using DataLab