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==