4.1 Cargar librerias

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

4.2 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)

4.3 Gráficos de las series

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

Interpretación datos 2 La grafica muestra el numero de nacimientos que presenta una pequeña caida en las gestiones del 2011 y 2013, sin embargo tiende a subir presentando picos de subidas y bajadas, teniendo un parecido similar en ciertos tiempo.

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

Interpretación datos3 La gráfica muestra una evolucion en las ventas entre los años 2018 y 2025, donde se evidencia uan tendencia creciente misma refleja una marcada estacionalidad y la amplitud de las variaciones aumenta conforme crece el nivel de ventas mostrandonos un comportamiento multiplicativo, para estacionar la serie es necesaria una diferencia para eliminar la tendencia y otra para suprimir la estacionalidad.

4.4 Suavisamiento

d2s3=SMA(d2s,3)

plot(d2s)

plot(d2s3)

4.5 Descompocición de series

d2sd=decompose(d2s)
plot(d2sd)

plot(d2sd$trend)

Interpretar

d3sd=decompose(d3s)
plot(d3sd)

plot(d3sd$trend)

Interpretar

4.7 Modelo exponencial “holwinters”

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)

Interpretar …

d3se=HoltWinters(d3s,seasonal = "multiplicative")
plot(d3s)

d3sp=predict(d3se,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(d3se)

plot(d3se,d3sp)

plot(d3se,d3sp,col = c("green","blue"))

Interpretar..