# \donttest{
data(dengue2020)
data_limpia <- limpiar_data_sivigila(data_event = dengue2020)
data_agrupada_mpios <- agrupar_mpio(data_limpia, dpto = "Antioquia")
# Cálculo de la incidencia con población a riesgo por departamento
if (interactive()) {
calcular_incidencia_geo(
poblacion = "riesgo",
data_agrupada = data_agrupada_mpios,
year = 2020,
cache = TRUE
)
}
data_agrupada_dptos <- agrupar_dpto(data_limpia)
# Cálculo de la incidencia con proyecciones poblacionales para Colombia
calcular_incidencia_geo(
poblacion = "proyecciones",
data_agrupada = data_agrupada_dptos,
year = 2020,
ruta_dir = tempdir()
)
# }
Run the code above in your browser using DataLab