Untitled

options(scipen = 999999)

library(readxl)
library(forecast)

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

serie.ivae <-read_excel("Datos IMAE.xlsx",col_types=c("skip", "numeric"),skip=5)


 serie.ivae.ts<- ts(data = serie.ivae,start = c(2018,3),frequency = 12)
 
serie.ivae.ts %>%
  autoplot(main = "IMAE, El Salvador 2021-2024[junio]",
                           xlab = "Años/Meses",
                           ylab = "Indice")

1.Modelo aditivo 1.1usando libreria stats

descomposicion_aditiva<-decompose(serie.ivae.ts,type = "additive")
autoplot(descomposicion_aditiva,main="Descomposición Aditiva",xlab="Años/Meses")

2. Modelo Multiplicativo 2.1 usando libreria stats

library(stats)
descomposicion_multiplicativa<-decompose(serie.ivae.ts,type = "multiplicative")
autoplot(descomposicion_multiplicativa,main="Descomposición multiplicativa",xlab="Años/Meses")