data(symptomcheckRdata)
performance_plot <- plot_performance_single(
data = symptomcheckRdata,
triagelevel_correct = "Goldstandard_solution",
triagelevel_advice = "Triage_advice_from_app",
order_triagelevel = c("Emergency", "Non-Emergency", "Self-care"),
vector_not_entered = c(NA)
)
Run the code above in your browser using DataLab