data_event <- epiCo::epi_data
data_ibague <- data_event[data_event$cod_mun_o == 73001, ]
incidence_historic <- incidence::incidence(data_ibague$fec_not,
interval = "1 epiweek"
)
endemic_channel(incidence_historic,
method = "geometric", plot = TRUE
)
Run the code above in your browser using DataLab