
Instalar paquetes y llamar librerías
library(forecast)
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
Crear serie de tiempo
funcion de ts significa time serie C significa el tiempo y primero
pones el año y luego mes manualmente dependiendo de la base de datos
Frecuencia es en cuanto está quebrado el periodo de tiempo, por ejemplo
si fuera por mes sería 12 ya que el año tiene 12 meses pero aqui como es
anual por eso es 1
produccion <- c(19,18,15,20,18,22,20 )
produccion_st <- ts(data= produccion, start= c(2022,2), frequency = 12)
produccion_st
## Feb Mar Apr May Jun Jul Aug
## 2022 19 18 15 20 18 22 20
ARIMA
Modelo Autorregresivo Integrado de Media Movil (Autoregressive
Integrated Moving Average ARIMA (p, d, q) p = orden de auto regresión d
= orden de integración (diferenciación) q = orden del promedio móvil
¿Cuándo se usa?
Cuando las estimaciones futuras se explican por los datos del pasado
y no por variables independientes.
EJEMPLO: Tipo de cambio
modelo <- auto.arima(produccion_st)
modelo
## Series: produccion_st
## ARIMA(0,0,0) with non-zero mean
##
## Coefficients:
## mean
## 18.8571
## s.e. 0.7674
##
## sigma^2 = 4.81: log likelihood = -14.89
## AIC=33.78 AICc=36.78 BIC=33.67
pronostico <- forecast(modelo, level=c(95), h=5)
pronostico
## Point Forecast Lo 95 Hi 95
## Sep 2022 18.85714 14.55882 23.15547
## Oct 2022 18.85714 14.55882 23.15547
## Nov 2022 18.85714 14.55882 23.15547
## Dec 2022 18.85714 14.55882 23.15547
## Jan 2023 18.85714 14.55882 23.15547
plot(pronostico)

Conclusiones
A diferencia de los métodos vistos en Excel, con la función ARIMA
podemos ver un pronóstico una vez que le damos datos para generar el
mismo. Algo benéfico es que nos muestra las porterías donde es el rango
para que se encuentre nuestro pronóstico pues no es 100% confiable pues
las circunstancias como es sabido, pueden cambiar.
LS0tCnRpdGxlOiA8c3BhbiBzdHlsZT0gIkNvbG9yOiM1NDhCNTQiID4gUHJvbsOzc3RpY29zIDwvc3Bhbj4KYXV0aG9yOiAiSXNhYWMgRMOtYXogQTAxNTQwNTQzIgpkYXRlOiAiMjAyMi0xMC0wNSIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKICAgIGNvZGVfZG93bmxvYWQ6IHllcwotLS0KPGltZyBzcmM9ICIvVXNlcnMvaXNhYWNkaWF6cnVpemRlY2hhdmV6L0Rvd25sb2Fkcy9wcm9ub8yBc3RpY28rZGUrbGErZGVtYW5hZCtjb24rSUEucG5nIiA+CgojIyMgPHNwYW4gc3R5bGU9ICJDb2xvcjojNTQ4QjU0IiA+IEluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcsOtYXMgPC9zcGFuPgoKYGBge3J9CmxpYnJhcnkoZm9yZWNhc3QpCmBgYAoKIyMjIDxzcGFuIHN0eWxlPSAiQ29sb3I6IzU0OEI1NCIgPiBDcmVhciBzZXJpZSBkZSB0aWVtcG8gPC9zcGFuPgoKZnVuY2lvbiBkZSB0cyBzaWduaWZpY2EgdGltZSBzZXJpZQpDIHNpZ25pZmljYSBlbCB0aWVtcG8geSBwcmltZXJvIHBvbmVzIGVsIGHDsW8geSBsdWVnbyBtZXMgbWFudWFsbWVudGUgZGVwZW5kaWVuZG8gZGUgbGEgYmFzZSBkZSBkYXRvcwpGcmVjdWVuY2lhIGVzIGVuIGN1YW50byBlc3TDoSBxdWVicmFkbyBlbCBwZXJpb2RvIGRlIHRpZW1wbywgcG9yIGVqZW1wbG8gc2kgZnVlcmEgcG9yIG1lcyBzZXLDrWEgMTIgeWEgcXVlIGVsIGHDsW8gdGllbmUgMTIgbWVzZXMgcGVybyBhcXVpIGNvbW8gZXMgYW51YWwgcG9yIGVzbyBlcyAxCgpgYGB7cn0KcHJvZHVjY2lvbiA8LSBjKDE5LDE4LDE1LDIwLDE4LDIyLDIwICkKcHJvZHVjY2lvbl9zdCA8LSB0cyhkYXRhPSBwcm9kdWNjaW9uLCBzdGFydD0gYygyMDIyLDIpLCBmcmVxdWVuY3kgPSAxMikKcHJvZHVjY2lvbl9zdApgYGAKCiMjIyA8c3BhbiBzdHlsZT0gIkNvbG9yOiM1NDhCNTQiID4gQVJJTUEgPC9zcGFuPgpNb2RlbG8gQXV0b3JyZWdyZXNpdm8gSW50ZWdyYWRvIGRlIE1lZGlhIE1vdmlsIChBdXRvcmVncmVzc2l2ZSBJbnRlZ3JhdGVkIE1vdmluZyBBdmVyYWdlCkFSSU1BIChwLCBkLCBxKQpwID0gb3JkZW4gZGUgYXV0byByZWdyZXNpw7NuCmQgPSBvcmRlbiBkZSBpbnRlZ3JhY2nDs24gKGRpZmVyZW5jaWFjacOzbikKcSA9IG9yZGVuIGRlbCBwcm9tZWRpbyBtw7N2aWwKCiMjIyA8c3BhbiBzdHlsZT0gIkNvbG9yOiM1NDhCNTQiID4gwr9DdcOhbmRvIHNlIHVzYT8gPC9zcGFuPgpDdWFuZG8gbGFzIGVzdGltYWNpb25lcyBmdXR1cmFzIHNlIGV4cGxpY2FuIHBvciBsb3MgZGF0b3MgZGVsIHBhc2FkbyB5IG5vIHBvciB2YXJpYWJsZXMgaW5kZXBlbmRpZW50ZXMuCgojIyMgPHNwYW4gc3R5bGU9ICJDb2xvcjojNTQ4QjU0IiA+IEVKRU1QTE86IFRpcG8gZGUgY2FtYmlvIDwvc3Bhbj4KCmBgYHtyfQptb2RlbG8gPC0gYXV0by5hcmltYShwcm9kdWNjaW9uX3N0KQptb2RlbG8KCnByb25vc3RpY28gPC0gZm9yZWNhc3QobW9kZWxvLCBsZXZlbD1jKDk1KSwgaD01KQpwcm9ub3N0aWNvCnBsb3QocHJvbm9zdGljbykKCmBgYAoKIyMjIDxzcGFuIHN0eWxlPSAiQ29sb3I6IzU0OEI1NCIgPiBDb25jbHVzaW9uZXMgPC9zcGFuPgoKQSBkaWZlcmVuY2lhIGRlIGxvcyBtw6l0b2RvcyB2aXN0b3MgZW4gRXhjZWwsIGNvbiBsYSBmdW5jacOzbiBBUklNQSBwb2RlbW9zIHZlciB1biBwcm9uw7NzdGljbyB1bmEgdmV6IHF1ZSBsZSBkYW1vcyBkYXRvcyBwYXJhIGdlbmVyYXIgZWwgbWlzbW8uIEFsZ28gYmVuw6lmaWNvIGVzIHF1ZSBub3MgbXVlc3RyYSBsYXMgcG9ydGVyw61hcyBkb25kZSBlcyBlbCByYW5nbyBwYXJhIHF1ZSBzZSBlbmN1ZW50cmUgbnVlc3RybyBwcm9uw7NzdGljbyBwdWVzIG5vIGVzIDEwMCUgY29uZmlhYmxlIHB1ZXMgbGFzIGNpcmN1bnN0YW5jaWFzIGNvbW8gZXMgc2FiaWRvLCBwdWVkZW4gY2FtYmlhci4gCg==