data(symptomcheckRdata)
safety_of_advice <- get_safety_of_advice(
data = symptomcheckRdata,
triagelevel_correct = "Goldstandard_solution",
triagelevel_advice = "Triage_advice_from_app",
order_triagelevel = c("Emergency", "Non-Emergency", "Self-care"),
apps = "App_name"
)
safety_plot <- plot_safety_of_advice(safety_of_advice)
Run the code above in your browser using DataLab