laboratorio4

Cargar librerias

library(ggplot2)
library(readxl)
library(TTR)

Cargar los datos

datos2=read_excel("datos2_examen1.xlsx")
datos3=read_excel("datos3_examen1.xlsx")
d2s=ts(datos2,start = c(2011,1),frequency = 12)
d3s=ts(datos3,start = c(2018,1),frequency = 12)

Gráficos de las series

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

en su interpretacion se puede observar que es aditivo,tambien tiene tendencia desde el año 2014 y es extacional

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

la interpretación de la grafica muestra que es multiplicativo y tiene la parte estacional en el grafico

Descomposición de las series

d2sd=decompose(d2s)
plot(d2sd)

plot(d2sd$trend)

interpretar:

d3sd=decompose(d3s)
plot(d3sd)

plot(d3sd$trend)

interpretar:

Modelo 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

knitr::kable(d2sp)

fit
27.30020
25.92822
29.04779
27.56001
28.88793
28.50749
30.56943
30.55133
29.94243

plot(d2sw,d2sp)

summary(d2s)

##      datos2     
##  Min.   :20.00  
##  1st Qu.:23.28  
##  Median :24.96  
##  Mean   :25.06  
##  3rd Qu.:26.88  
##  Max.   :30.00

interpretar:

d3sw=HoltWinters(d3s,seasonal = "additive")
d3sp=predict(d3sw,9)
d3sp

##           Jan      Feb      Mar      Apr      May      Jun      Jul      Aug
## 2025 19336.94 20039.00 30337.70 25705.19 24266.11 26903.89 34522.35 37068.94
##           Sep
## 2025 39199.81

knitr::kable(d3sp)

fit
19336.94
20039.00
30337.70
25705.19
24266.11
26903.89
34522.35
37068.94
39199.81

plot(d3sw,d3sp)

interpretar: