# Assuming `pipeline_results` is a PipelineResults object with test metrics and CV mean score
pipeline_results <- new("PipelineResults",
test_metrics = data.frame(
method = c("Method1", "Method2"),
f1_mean = c(0.8, 0.85), f1_sd = c(0.05, 0.04),
recall_mean = c(0.75, 0.78), recall_sd = c(0.06, 0.05),
precision_mean = c(0.85, 0.88), precision_sd = c(0.05, 0.04),
accuracy_mean = c(0.9, 0.92), accuracy_sd = c(0.03, 0.02)),
cv_mean_score = data.frame(
method = c("Method1", "Method2"),
mean_score = c(0.88, 0.9), sd_score = c(0.02, 0.02)))
# Plot the performance metrics
metric_plots <- plot_metrics(pipeline_results)
print(metric_plots)
Run the code above in your browser using DataLab