# \donttest{
data(dengue2020)
data_limpia <- limpiar_data_sivigila(dengue2020)
data_agrupada <- agrupar_years(data_event = data_limpia)
plot_years(data_agrupada,
col_year = "ano"
)
if (interactive()) {
data_years <- import_data_event(
nombre_event = "CHAGAS",
years = c(2019, 2020))
data_limpia <- limpiar_data_sivigila(data_years)
data_agrupada <- agrupar_years(data_event = data_limpia)
plot_years(data_agrupada, col_year = "ano")
}
# }
Run the code above in your browser using DataLab