Laboratorio

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

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="blue")

Interpretacion: La grafica muestra una serie temporal con elevacion desde el 2015,por sus elevaciones periodicas puede significar que es estacionalidad y que atravez de los años

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

Interpretacion: El grafico muestra una tendencia ligeramente creciente,se meuestran fluctuaciones periodicas,los picos o elevaciones aumentan a tarvez de los años, lo que indica que es un modelo multiplicativo.

descomposicion de la serie

d3sd=decompose(d3s)
plot(d3sd)

Interpretacion: En el grafico se muestrala descomposicion de unaserie en la primera fiala se observa un comportamiento ligero y que conbina estacionalidad y variaciones aleatorias,en la 2da fila se muestra un crecimiento constante, en la 3er presenta un patron constanyte y repititivo en la 4ta hay picos ligeros

Modelo Holtwintwers

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: