library(readxl)
library(forecast)
## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo
IVAE <- read_excel("C:/Users/SANCHEZ/Desktop/GABRIEL2021/Universidad/Ciclo V/Econometria/IVAE.xlsx", col_types = c("skip","numeric"), skip=5)
serie.ivae.ts<-ts(data = IVAE,start = c(2018,1),frequency=12 )
serie.ivae.ts %>%
  autoplot(main = "IVAE,El Salvador 2018-2024[Marzo]",
           xlab = "Años/meses",
           ylab = "Indice")

#Descomposición aditiva

library(stats)
descomposicion_aditiva<-decompose(serie.ivae.ts,type="additive")
autoplot(descomposicion_aditiva,main="Descomposicion Aditiva",xlab="Años/meses")

#Descomposición multiplicativa

library(stats)
descomposicion_aditivam<-decompose(serie.ivae.ts,type="multiplicative")
autoplot(descomposicion_aditiva,main="Descomposicion Aditiva",xlab="Años/meses")