Cargar librerias

library(TTR)
## Warning: package 'TTR' was built under R version 4.5.1
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

Cargar los datos

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

Grafico de las series

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

interpretacion: los nacimientos incrementan con el pasar de los años mostrando una tendencia creciente, y es modelo aditivo

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

interpretacion: las ventas incrementan con una tendencia creciente, es un modelo multiplicativo

Descomposicion de las series

2

d2sd=decompose(d2s)
plot(d2sd)

plot(d2sd$seasonal)

plot(d2sd$trend)

interpretar 3

d3sd=decompose(d3s)
plot(d3sd)

plot(d3sd$seasonal)

plot(d3sd$trend)

interpretar

Descomposicion de las series

#beta se una con tendencia #gama cuando es estacional

d2se=HoltWinters(d2s)
d2sp=predict(d2se,9)
d2sp
##           Jan      Feb      Mar      Apr      May      Jun Jul Aug Sep      Oct
## 2024                                                                   27.47565
## 2025 27.91772 29.14262 28.52663 30.21826 29.94316 29.32420                     
##           Nov      Dec
## 2024 26.17931 29.39685
## 2025
plot(d2se)

plot(d2se,d2sp,col = c("black","blue"))

d3se=HoltWinters(d3s, seasonal = "multiplicative")
d3sp=predict(d3se,9)
d3sp
##           Jan      Feb      Mar      Apr      May      Jun Jul Aug Sep      Oct
## 2024                                                                   14669.49
## 2025 27981.58 25767.27 32004.94 42197.35 43772.09 43384.92                     
##           Nov      Dec
## 2024 18466.93 35080.81
## 2025
plot(d3se)

plot(d3se,d3sp,col = c("red","black"))