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
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= "Nuemero de nacimiento",col="darkblue")

interrupcion… datos2 INTERPRETACION Observamos en tendencia creciente al pasar de los años con un modelo aditivo.

plot(d3s,xlab="Años",ylab= "Nuemero de ventas",col="violet")

interrupcion…datos 3 INTERPRETACION Observamos en tendencia de manera creciente en las ventas con un modelo multiplicativo.

DESCOMPOSICION DE LAS SERIES

d2sd=decompose(d2s)
plot(d2sd)

interrupcion… INTERPRETACION

d3sd=decompose(d3s)
plot(d3sd)

interrupcion… INTERPRETACION

MODELO HOLT WINTERS

?HoltWinters
## starting httpd help server ... done
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)

interrupcion…datos2 INTERPRETACION

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)

interrupcion…datos3 INTERPRETACION