# Load sample data
data(sample_data_train)
data(sample_data_extern)
# Example usage with external tuning (default)
result <- tuneandtrainExtRidge(sample_data_train, sample_data_extern, maxit = 120000, nlambda = 100)
print(result$best_lambda) # Optimal lambda
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 <- tuneandtrainExtRidge(sample_data_train, sample_data_extern,
estperf = TRUE, maxit = 120000, nlambda = 100)
print(result_internal$best_lambda) # Optimal lambda
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