if (FALSE) {
library(tikatuwq)
data("wq_demo")
txt <- generate_analysis(
df = wq_demo,
classe_conama = "2",
incluir_tendencia = TRUE,
parametros_tendencia = c("turbidez","od","pH"),
contexto = list(rio = "Rio Azul", periodo = "jan–jun/2025")
)
cat(paste(txt, collapse = "\n\n"))
}
Run the code above in your browser using DataLab