Cargar librerias

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.5.1
library(readxl)
library(TTR)
## Warning: package 'TTR' was built under R version 4.5.1

Cargar los datos

datos2=read_excel("datos2_ex1.xlsx")
datos3=read_excel("datos3_ex1.xlsx")

d2s=ts(datos2,start = c(2011,1),frequency = 12)
d3s=ts(datos3,start = c(2018,1),frequency = 12)

Graficos de las series

plot(d2s,xlab="Años", ylab="Numero de nacimientos",col="darkblue")

INTERPRETACION El grafico ilustra los numeros de nacimientos desde el años 2011, que el 2012 tiene una caida y empieza a subir desde el año 2016, el compotamiento es de tipo adictivo,a que quitar las tedencias para analizae a que dejar de plano estacionario

plot(d3s,xlab="Años", ylab="ventas",col="darkblue")

INTERPRETACION El gráfico ilustra la evolución de las ventas entre 2018 y 2025, destacando una tendencia ascendente a lo largo del período, con picos marcados que se repiten de manera regular cada año, lo que indica una notable estacionalidad. La magnitud de las variaciones aumenta a medida que se eleva el nivel de las ventas, sugiriendo que el comportamiento es de tipo multiplicativo. Para estabilizar la serie, serían necesarias dos diferencias: una para eliminar la tendencia y otra para suprimir la estacionalidad

Descomposicion de las series

d2sd=decompose(d2s)
plot(d2sd)

d3sd=decompose(d3s)
plot(d3sd)

INTERPRETAR

Modelos Holt Winters

d2sw=HoltWinters(d2s,seasonal = "additive")


d2sp=predict(d2sw,9)
d2sp
##           Jan      Feb      Mar      Apr      May      Jun      Jul      Aug
## 2025 27.30020 25.92822 29.04779 27.56001 28.88793 28.50749 30.56943 30.55133
##           Sep
## 2025 29.94243
plot(d2sw,d2sp)

INTERPRETACION Se ve en la grafica que el año 2025 se tendra una baja de nacimiemtos pero empieza a subir hasta 2026

d3sw=HoltWinters(d3s,seasonal = "multiplicative")


d3sp=predict(d3sw,9)
d3sp
##           Jan      Feb      Mar      Apr      May      Jun      Jul      Aug
## 2025 14994.74 18948.09 35767.05 28159.43 25669.26 31472.70 40496.45 41217.96
##           Sep
## 2025 40537.85
plot(d3sw,d3sp)

INTERPRETACION Se ve en la grafica que el año 2025 se tendra una caida en las ventas