data(symptomcheckRdata)
inclination_to_overtriage <- get_inclination_to_overtriage(
data = symptomcheckRdata,
triagelevel_correct = "Goldstandard_solution",
triagelevel_advice = "Triage_advice_from_app",
order_triagelevel = c("Emergency", "Non-Emergency", "Self-care"),
apps = "App_name"
)
overtriage_plot <- plot_inclination_to_overtriage(inclination_to_overtriage)
Run the code above in your browser using DataLab