data(symptomcheckRdata)
performance_plot <- plot_performance_multiple(
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),
vignettes = "Vignette_id",
apps = "App_name"
)
Run the code above in your browser using DataLab