
Series de Tiempo
0. Concepto
Una serie de tiempo es una colección de
observaciones sobre un determinado fenómeno efectuadas en momentos de
tiempo sucesivos, usualmente esquiespacios.
Ejemplos de series de tiempo son: 1. Precio de acciones 2. Niveles de
inventario 3. Rotación de personal 4. Ventas 5. PIB (GDP)
1. Instalar paquetes y llamar
librerías
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
2. Crear la serie de
tiempo
# Ejemplo: Los siguientes datos de producción trimestral
# inician en el primer trimestre de 2020.
# Se busca pronosticar la producción de los siguientes
# 5 trimestres.
produccion <- c(50,53,55,57,55,60)
serie_de_tiempo <- ts(data=produccion, start =c(2020,1),frequency=4)
serie_de_tiempo
## Qtr1 Qtr2 Qtr3 Qtr4
## 2020 50 53 55 57
## 2021 55 60
3. Crear el modelo ARIMA
ARIMA significa AutoRegressive Integrated Moving
Average o Modelo Autorregresivo Integrado de Promedio
Movil.
modelo <- auto.arima(serie_de_tiempo)
modelo
## Series: serie_de_tiempo
## ARIMA(0,1,0)
##
## sigma^2 = 9.2: log likelihood = -12.64
## AIC=27.29 AICc=28.62 BIC=26.89
## Series: serie_de_tiempo
## ARIMA(0,1,0)
##
## sigma^2 = 9.2: log likelihood = -12.64
## AIC=27.29 AICc=28.62 BIC=26.89
##
## Training set error measures:
## ME RMSE MAE MPE MAPE MASE ACF1
## Training set 1.675 2.76895 2.341667 2.933747 4.145868 0.3902778 -0.5152989
4. Realizar el pronóstico
pronostico <- forecast(modelo, level=c(95), h=5)
pronostico
## Point Forecast Lo 95 Hi 95
## 2021 Q3 60 54.05497 65.94503
## 2021 Q4 60 51.59246 68.40754
## 2022 Q1 60 49.70291 70.29709
## 2022 Q2 60 48.10995 71.89005
## 2022 Q3 60 46.70652 73.29348

LS0tCnRpdGxlOiAiU2VyaWVzIGRlIFRpZW1wbyIKYXV0aG9yOiAiUGF1bGluYSBCYWRpbGxvIEdvbnrDoWxleiIKZGF0ZTogIjIwMjMtMTAtMDMiCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiBUUlVFCiAgICB0b2NfZmxvYXQ6IFRSVUUKICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKICAgIHRoZW1lOiAiYm9vdHN0cmFwIgogICAgaGlnaGxpZ2h0OiAiZXNwcmVzc28iCi0tLQoKIVtdKEM6fi9EZXNrdG9wL3RpZW1wbyAzLmdpZikKCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiBvcmFuZ2U7Ij5TZXJpZXMgZGUgVGllbXBvPC9zcGFuPgoKIyMgPHNwYW4gc3R5bGU9ImNvbG9yOiBvcmFuZ2U7Ij4wLiBDb25jZXB0bzwvc3Bhbj4KVW5hICoqc2VyaWUgZGUgdGllbXBvKiogZXMgdW5hIGNvbGVjY2nDs24gZGUgb2JzZXJ2YWNpb25lcyBzb2JyZSB1biBkZXRlcm1pbmFkbyBmZW7Ds21lbm8gZWZlY3R1YWRhcyBlbiBtb21lbnRvcyBkZSB0aWVtcG8gc3VjZXNpdm9zLCB1c3VhbG1lbnRlIGVzcXVpZXNwYWNpb3MuIAoKRWplbXBsb3MgZGUgc2VyaWVzIGRlIHRpZW1wbyBzb246CjEuIFByZWNpbyBkZSBhY2Npb25lcwoyLiBOaXZlbGVzIGRlIGludmVudGFyaW8KMy4gUm90YWNpw7NuIGRlIHBlcnNvbmFsCjQuIFZlbnRhcwo1LiBQSUIgKEdEUCkKCiMjIDxzcGFuIHN0eWxlPSJjb2xvcjogb3JhbmdlOyI+MS4gSW5zdGFsYXIgcGFxdWV0ZXMgeSBsbGFtYXIgbGlicmVyw61hczwvc3Bhbj4KYGBge3J9CmxpYnJhcnkoZm9yZWNhc3QpCmBgYAoKIyMgPHNwYW4gc3R5bGU9ImNvbG9yOiBvcmFuZ2UgOyI+Mi4gQ3JlYXIgbGEgc2VyaWUgZGUgdGllbXBvPC9zcGFuPgpgYGB7cn0KIyBFamVtcGxvOiBMb3Mgc2lndWllbnRlcyBkYXRvcyBkZSBwcm9kdWNjacOzbiB0cmltZXN0cmFsCiMgaW5pY2lhbiBlbiBlbCBwcmltZXIgdHJpbWVzdHJlIGRlIDIwMjAuCiMgU2UgYnVzY2EgcHJvbm9zdGljYXIgbGEgcHJvZHVjY2nDs24gZGUgbG9zIHNpZ3VpZW50ZXMKIyA1IHRyaW1lc3RyZXMuCgpwcm9kdWNjaW9uIDwtIGMoNTAsNTMsNTUsNTcsNTUsNjApCgpzZXJpZV9kZV90aWVtcG8gPC0gdHMoZGF0YT1wcm9kdWNjaW9uLCBzdGFydCA9YygyMDIwLDEpLGZyZXF1ZW5jeT00KQpzZXJpZV9kZV90aWVtcG8KYGBgCgojIyA8c3BhbiBzdHlsZT0iY29sb3I6IG9yYW5nZTsiPjMuIENyZWFyIGVsIG1vZGVsbyBBUklNQTwvc3Bhbj4KKipBUklNQSoqIHNpZ25pZmljYSAqQXV0b1JlZ3Jlc3NpdmUgSW50ZWdyYXRlZCBNb3ZpbmcgQXZlcmFnZSogbyAqTW9kZWxvIEF1dG9ycmVncmVzaXZvIEludGVncmFkbyBkZSBQcm9tZWRpbyBNb3ZpbCouCmBgYHtyfQptb2RlbG8gPC0gYXV0by5hcmltYShzZXJpZV9kZV90aWVtcG8pCm1vZGVsbwpzdW1tYXJ5KG1vZGVsbykKYGBgCiMjIDxzcGFuIHN0eWxlPSJjb2xvcjogb3JhbmdlOyI+NC4gUmVhbGl6YXIgZWwgcHJvbsOzc3RpY288L3NwYW4+CmBgYHtyfQpwcm9ub3N0aWNvIDwtIGZvcmVjYXN0KG1vZGVsbywgbGV2ZWw9Yyg5NSksIGg9NSkKcHJvbm9zdGljbwpwbG90KHByb25vc3RpY28pCmBgYAoK