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