## ----eval=FALSE---------------------------------------------------------------
# # Use LLM to interpret the epidemic curve
# interpretation <- llm_interpret(
#   input = epi_curve_plot,
#   word_limit = 120,
#   prompt_extension = "Analyse this epidemic curve and identify notable patterns, trends, or anomalies. Focus on seasonal patterns and potential outbreak periods."
# )
# 
# # Display the interpretation
# cat("LLM Interpretation:\n")
# cat(interpretation)

## ----eval=FALSE---------------------------------------------------------------
# # Use LLM with a custom prompt focused on public health implications
# custom_interpretation <- llm_interpret(
#   input = pyramid_plot,
#   word_limit = 150,
#   prompt_extension = "As a public health epidemiologist, analyze this age-sex pyramid for Klebsiella pneumoniae cases. Identify which demographic groups are most at risk, discuss potential risk factors, and suggest targeted prevention strategies. Consider healthcare-associated infections and community transmission patterns."
# )
# 
# # Display the custom interpretation
# cat("Custom Epidemiological Analysis:\n")
# cat(custom_interpretation)