Activida final. Pronósticos

library(stats)
library(tseries)
library(forecast)
library(fpp2)
library(ggplot2)
library(urca)

1. Breve descripción de la serie elegida, así como su frecuencia, unidad de medida, fuente, etc.

FORMACIÓN BRUTA DE CAPITAL FIJO.

Integrada por los bienes utilizados en el proceso productivo durante más de un año y que están sujetos a derechos de propiedad. Este indicador muestra cómo una gran parte del nuevo valor agregado bruto en la economía se invierte, en lugar de ser consumido.
Periodicidad: trimestral
Unidad de medidad: millones de pesos a precios de 2013.
Fuente: www.inegi.org.mx/bie/

2. Graficar los datos, analizar patrones y observaciones atípicas. Apoye su análisis con una descomposición clásica.

En este caso, y tomando en cuenta periodos posteriores al 2000, es una tendencia estocástica debido a que la tendencia percibida es un artefacto de la fuerte correlacion positiva entre los puntos cercanos y la creciente varianza del proceso conforma el tiempo avanza.

Tras una mejor identifación gráfica de la serie se puede observar que ésta no es estacional ya que no se inclina a ningun lada del circulo.

  • Descomposición clásica

Tras una descomposición clásica de la serie se puede observar un gran comportamiento tendencial y un ligero comportamiento en terminos estacionales.

3. Si es necesario, utilizar la transformación logarítmica para estabilizar la varianza y graficar.

5. Usar prueba Dickey-Fuller para evaluar el orden de integración de la serie (incluir constante y/o tendencia). Diferenciar hasta que la serie sea estacionaria.

adf.test(diff(FBKFST))
p-value smaller than printed p-value

    Augmented Dickey-Fuller Test

data:  diff(FBKFST)
Dickey-Fuller = -5.8857, Lag order = 4, p-value = 0.01
alternative hypothesis: stationary
ur.df(diff(FBKFST), type = c("trend"))

############################################################### 
# Augmented Dickey-Fuller Test Unit Root / Cointegration Test # 
############################################################### 

The value of the test statistic is: -5.5395 10.2297 15.3438 

6. Usar herramientas como ACF, PACF para construir propuestas de modelos.

7. Estimar las propuestas de modelos y realizar las interpretaciones de los parámetros y criterios de información de Akaike y Bayesiano.

summary(fit3)
Series: log(FBKFST) 
ARIMA(2,1,1) 

Coefficients:
          ar1     ar2     ma1
      -0.6562  0.3141  0.8339
s.e.   0.1016  0.0967  0.0540

sigma^2 estimated as 0.003522:  log likelihood=144.42
AIC=-280.85   AICc=-280.44   BIC=-270.35

Training set error measures:
                      ME       RMSE        MAE        MPE
Training set 0.004551924 0.05818289 0.04033804 0.03049697
                  MAPE      MASE       ACF1
Training set 0.2774591 0.4201697 0.02584765

La PACF sugiere un AR(3). De igual manera la ACF nos refleja un MA(3). Por tanto, nuestro primero modelo propuesto sería un ARIMA(2, 1, 2).
De igual manera, se estimaran modelos que nos brinden mejores resultados observacion el AICc y el p-value, entre ellos: (3,1,2), (1,1,2) y (2,1,1).
El modelo elegido es el de fit2 presentendo un AICc menor que el de todos (-280.85) y sin presentar correlación serial.

8. Como parte del diagnóstico del modelo, analizar los residuos en sus distintas representaciones y aplicar pruebas Ljung-Box, heteroscedasticidad y normalidad.

Como se puede apreciar, el análisis de los residuos tiende a comportarse de manera normal siguiente como patron la linea de 45 grados que la gráfica Q-Q nos brinda.

9. Usar la función auto.arima() y compare sus resultados con el inciso anterior.

auto <- auto.arima(log(FBKFST))
summary(auto)
  • Interpretación gráfica del modelo en base a la solución propuesta por auto.arima

Tras la comparación previa del modelo ARIMA propuesto manualmente y el modelo sugerido por la herramienta “auto.arima()”, se llegaron a las siguientes conclusiones:
1) El modelo que nos ofrece la herramienta (auto.arima) presenta un Akaike menor que el propuesto manualmente.
2) Sin embargo, el modelo propuesto automáticamente presenta problemas de correlación serial basandonos en el “P-value” que nos genera el summary, proyectando éste un valor menos a .05.
3) Por tanto, el modelo propuesto de forma manual es el sugerido para el proceso de pronóstico ya que presenta un Akaike ligeramente mayor pero sin problemas de correlación serial, cumpliendo así con los requerimientos esenciales para proseguir con el punto posterior.

11. Generar el gráfico de un pronóstico a dos años con base en el modelo ARIMA y algún método adicional que no requiera diferenciación.

  • Pronóstico del modelo ARIMA seleccionado.

  • Representación gráfica
  • Método de tendencia (Holt Winters).

  • Suavizamiento exponencial

LS0tDQp0aXRsZTogIlNlcmllcyBkZSB0aWVtcG8iDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KIyNBY3RpdmlkYSBmaW5hbC4gUHJvbvNzdGljb3MNCg0KLSA8c3BhbiBzdHlsZT0iY29sb3I6Ymx1ZSI+IE1vZGVsb3MgQVJJTUEuDQotIDxzcGFuIHN0eWxlPSJjb2xvcjpibHVlIj4gUHJvbvNzdGljbyBTaW1wbGUuDQotIDxzcGFuIHN0eWxlPSJjb2xvcjpibHVlIj4gU3Vhdml6YW1pZW50byBleHBvbmVuY2lhbC4gDQoNCmBgYHtyfQ0KbGlicmFyeShzdGF0cykNCmxpYnJhcnkodHNlcmllcykNCmxpYnJhcnkoZm9yZWNhc3QpDQpsaWJyYXJ5KGZwcDIpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHVyY2EpDQpgYGANCg0KPHNwYW4gc3R5bGU9ImNvbG9yOnJlZCI+IDEuIEJyZXZlIGRlc2NyaXBjafNuIGRlIGxhIHNlcmllIGVsZWdpZGEsIGFz7SBjb21vIHN1IGZyZWN1ZW5jaWEsIHVuaWRhZCBkZSBtZWRpZGEsDQpmdWVudGUsIGV0Yy4gDQoNCiMjIyMgRk9STUFDSdNOIEJSVVRBIERFIENBUElUQUwgRklKTy4NCg0KPiBJbnRlZ3JhZGEgcG9yIGxvcyBiaWVuZXMgdXRpbGl6YWRvcyBlbiBlbCBwcm9jZXNvIHByb2R1Y3Rpdm8gZHVyYW50ZSBt4XMgZGUgdW4gYfFvIHkgcXVlIGVzdOFuIHN1amV0b3MgYSBkZXJlY2hvcyBkZSBwcm9waWVkYWQuIEVzdGUgaW5kaWNhZG9yIG11ZXN0cmEgY/NtbyB1bmEgZ3JhbiBwYXJ0ZSBkZWwgbnVldm8gdmFsb3IgYWdyZWdhZG8gYnJ1dG8gZW4gbGEgZWNvbm9t7WEgc2UgaW52aWVydGUsIGVuIGx1Z2FyIGRlIHNlciBjb25zdW1pZG8uIFwNClBlcmlvZGljaWRhZDogdHJpbWVzdHJhbCBcDQpVbmlkYWQgZGUgbWVkaWRhZDogbWlsbG9uZXMgZGUgcGVzb3MgYSBwcmVjaW9zIGRlIDIwMTMuIFwNCkZ1ZW50ZTogd3d3LmluZWdpLm9yZy5teC9iaWUvDQoNCjxzcGFuIHN0eWxlPSJjb2xvcjpyZWQiPiAyLiBHcmFmaWNhciBsb3MgZGF0b3MsIGFuYWxpemFyIHBhdHJvbmVzIHkgb2JzZXJ2YWNpb25lcyBhdO1waWNhcy4gQXBveWUgc3UgYW7hbGlzaXMgY29uDQp1bmEgZGVzY29tcG9zaWNp824gY2zhc2ljYS4NCg0KYGBge3J9DQpGQktGIDwtIHJlYWQuY3N2KGZpbGUuY2hvb3NlKCkpDQpGQktGU1QgPC0gdHMoRkJLRiRJbnZlcnNpb24sIHN0YXJ0ID0gYygxOTkzLCAxKSwgZnJlcXVlbmN5ID0gNCkNCmF1dG9wbG90KEZCS0ZTVCkgKyBnZW9tX3Ntb290aChtZXRob2QgPSJsbSIsIHNlID0gRkFMU0UpICsgZ2d0aXRsZSgiRm9ybWFjafNuIEJydXRhIGRlIENhcGl0YWwgRmlqbyIpDQpgYGANCj4gRW4gZXN0ZSBjYXNvLCB5IHRvbWFuZG8gZW4gY3VlbnRhIHBlcmlvZG9zIHBvc3RlcmlvcmVzIGFsIDIwMDAsIGVzIHVuYSB0ZW5kZW5jaWEgZXN0b2Phc3RpY2EgZGViaWRvIGEgcXVlIGxhIHRlbmRlbmNpYSBwZXJjaWJpZGEgZXMgdW4gYXJ0ZWZhY3RvIGRlIGxhIGZ1ZXJ0ZSBjb3JyZWxhY2lvbiBwb3NpdGl2YSBlbnRyZSBsb3MgcHVudG9zIGNlcmNhbm9zIHkgbGEgY3JlY2llbnRlIHZhcmlhbnphIGRlbCBwcm9jZXNvIGNvbmZvcm1hIGVsIHRpZW1wbyBhdmFuemEuDQoNCmBgYHtyfQ0KZ2dzZWFzb25wbG90KGxvZyhGQktGU1QpLCBwb2xhcj1UUlVFKSArIHlsYWIoIkZCS0YiKSArIHhsYWIoIiAiKSArIGdndGl0bGUoIiAiKQ0KYGBgDQo+IFRyYXMgdW5hIG1lam9yIGlkZW50aWZhY2nzbiBncuFmaWNhIGRlIGxhIHNlcmllIHNlIHB1ZWRlIG9ic2VydmFyIHF1ZSDpc3RhIG5vIGVzIGVzdGFjaW9uYWwgeWEgcXVlIG5vIHNlIGluY2xpbmEgYSBuaW5ndW4gbGFkYSBkZWwgY2lyY3Vsby4NCg0KDQotIERlc2NvbXBvc2ljafNuIGNs4XNpY2ENCmBgYHtyfQ0KZml0IDwtIGRlY29tcG9zZShsb2coRkJLRlNUKSwgdHlwZT0nYWRkaXRpdmUnKQ0KYXV0b3Bsb3QoZml0KQ0KYGBgDQo+IFRyYXMgdW5hIGRlc2NvbXBvc2ljafNuIGNs4XNpY2EgZGUgbGEgc2VyaWUgc2UgcHVlZGUgb2JzZXJ2YXIgdW4gZ3JhbiBjb21wb3J0YW1pZW50byB0ZW5kZW5jaWFsIHkgdW4gbGlnZXJvIGNvbXBvcnRhbWllbnRvIGVuIHRlcm1pbm9zIGVzdGFjaW9uYWxlcy4NCg0KPHNwYW4gc3R5bGU9ImNvbG9yOnJlZCI+IDMuIFNpIGVzIG5lY2VzYXJpbywgdXRpbGl6YXIgbGEgdHJhbnNmb3JtYWNp824gbG9nYXLtdG1pY2EgcGFyYSBlc3RhYmlsaXphciBsYSB2YXJpYW56YSB5DQpncmFmaWNhci4NCg0KYGBge3J9DQphdXRvcGxvdChsb2coRkJLRlNUKSkgKyBnZW9tX3Ntb290aChtZXRob2QgPSJsbSIsIHNlID0gRkFMU0UpICsgZ2d0aXRsZSgiRm9ybWFjafNuIEJydXRhIGRlIENhcGl0YWwgRmlqbyIpDQpgYGANCg0KDQo8c3BhbiBzdHlsZT0iY29sb3I6cmVkIj4gNS4gVXNhciBwcnVlYmEgRGlja2V5LUZ1bGxlciBwYXJhIGV2YWx1YXIgZWwgb3JkZW4gZGUgaW50ZWdyYWNp824gZGUgbGEgc2VyaWUgKGluY2x1aXINCmNvbnN0YW50ZSB5L28gdGVuZGVuY2lhKS4gRGlmZXJlbmNpYXIgaGFzdGEgcXVlIGxhIHNlcmllIHNlYSBlc3RhY2lvbmFyaWEuDQoNCmBgYHtyfQ0KYWRmLnRlc3QoZGlmZihGQktGU1QpKQ0KYGBgDQoNCmBgYHtyfQ0KdXIuZGYoZGlmZihGQktGU1QpLCB0eXBlID0gYygidHJlbmQiKSkNCmBgYA0KDQo8c3BhbiBzdHlsZT0iY29sb3I6cmVkIj4gNi4gVXNhciBoZXJyYW1pZW50YXMgY29tbyBBQ0YsIFBBQ0YgcGFyYSBjb25zdHJ1aXIgcHJvcHVlc3RhcyBkZSBtb2RlbG9zLg0KDQpgYGB7cn0NCmdndHNkaXNwbGF5KGRpZmYobG9nKEZCS0ZTVCw0KSksIG1haW49J0RpZiB07XBpY2EgZGUgRkJLRicpDQpgYGANCg0KPHNwYW4gc3R5bGU9ImNvbG9yOnJlZCI+IDcuIEVzdGltYXIgbGFzIHByb3B1ZXN0YXMgZGUgbW9kZWxvcyB5IHJlYWxpemFyIGxhcyBpbnRlcnByZXRhY2lvbmVzIGRlIGxvcyBwYXLhbWV0cm9zDQp5IGNyaXRlcmlvcyBkZSBpbmZvcm1hY2nzbiBkZSBBa2Fpa2UgeSBCYXllc2lhbm8uDQoNCmBgYHtyfQ0KZml0IDwtIEFyaW1hKGxvZyhGQktGU1QpLCBvcmRlcj1jKDIsMSwyKSkNCmZpdDEgPC0gQXJpbWEobG9nKEZCS0ZTVCksIG9yZGVyPWMoMywxLDIpKQ0KZml0MiA8LSBBcmltYShsb2coRkJLRlNUKSwgb3JkZXI9YygxLDEsMikpDQpmaXQzIDwtIEFyaW1hKGxvZyhGQktGU1QpLCBvcmRlcj1jKDIsMSwxKSkNCnN1bW1hcnkoZml0MykNCmNoZWNrcmVzaWR1YWxzKGZpdCkNCmBgYA0KDQo+IExhIFBBQ0Ygc3VnaWVyZSB1biBBUigzKS4gRGUgaWd1YWwgbWFuZXJhIGxhIEFDRiBub3MgcmVmbGVqYSB1biBNQSgzKS4gUG9yIHRhbnRvLCBudWVzdHJvIHByaW1lcm8gbW9kZWxvIHByb3B1ZXN0byBzZXLtYSB1biBBUklNQSgyLCAxLCAyKS5cDQpEZSBpZ3VhbCBtYW5lcmEsIHNlIGVzdGltYXJhbiBtb2RlbG9zIHF1ZSBub3MgYnJpbmRlbiBtZWpvcmVzIHJlc3VsdGFkb3Mgb2JzZXJ2YWNpb24gZWwgQUlDYyB5IGVsIHAtdmFsdWUsIGVudHJlIGVsbG9zOiAoMywxLDIpLCAoMSwxLDIpIHkgKDIsMSwxKS5cDQpFbCBtb2RlbG8gZWxlZ2lkbyBlcyBlbCBkZSAqKmZpdDIqKiBwcmVzZW50ZW5kbyB1biBBSUNjIG1lbm9yIHF1ZSBlbCBkZSB0b2RvcyAoLTI4MC44NSkgeSBzaW4gcHJlc2VudGFyIGNvcnJlbGFjafNuIHNlcmlhbC4NCg0KDQo8c3BhbiBzdHlsZT0iY29sb3I6cmVkIj4gOC4gQ29tbyBwYXJ0ZSBkZWwgZGlhZ27zc3RpY28gZGVsIG1vZGVsbywgYW5hbGl6YXIgbG9zIHJlc2lkdW9zIGVuIHN1cyBkaXN0aW50YXMgcmVwcmVzZW50YWNpb25lcw0KeSBhcGxpY2FyIHBydWViYXMgTGp1bmctQm94LCBoZXRlcm9zY2VkYXN0aWNpZGFkIHkgbm9ybWFsaWRhZC4NCg0KDQpgYGB7cn0NCnFxbm9ybShyZXNpZHVhbHMoZml0MikpOyBxcWxpbmUocmVzaWR1YWxzKGZpdDIpKQ0KYGBgDQo+IENvbW8gc2UgcHVlZGUgYXByZWNpYXIsIGVsIGFu4Wxpc2lzIGRlIGxvcyByZXNpZHVvcyB0aWVuZGUgYSBjb21wb3J0YXJzZSBkZSBtYW5lcmEgbm9ybWFsIHNpZ3VpZW50ZSBjb21vIHBhdHJvbiBsYSBsaW5lYSBkZSA0NSBncmFkb3MgcXVlIGxhIGdy4WZpY2EgUS1RIG5vcyBicmluZGEuDQoNCjxzcGFuIHN0eWxlPSJjb2xvcjpyZWQiPiA5LiBVc2FyIGxhIGZ1bmNp824gYXV0by5hcmltYSgpIHkgY29tcGFyZSBzdXMgcmVzdWx0YWRvcyBjb24gZWwgaW5jaXNvIGFudGVyaW9yLg0KDQpgYGB7cn0NCmF1dG8gPC0gYXV0by5hcmltYShsb2coRkJLRlNUKSkNCnN1bW1hcnkoYXV0bykNCmBgYA0KDQotIEludGVycHJldGFjafNuIGdy4WZpY2EgZGVsIG1vZGVsbyBlbiBiYXNlIGEgbGEgc29sdWNp824gcHJvcHVlc3RhIHBvciBhdXRvLmFyaW1hDQpgYGB7cn0NCmF1dG9wbG90KGZvcmVjYXN0KGF1dG8pLCB4bGFiID0gIlBlcmnzZG8iLCB5bGFiID0gImxvZyAoRkJLRikiICkNCmBgYA0KDQo+IFRyYXMgbGEgY29tcGFyYWNp824gcHJldmlhIGRlbCBtb2RlbG8gQVJJTUEgcHJvcHVlc3RvIG1hbnVhbG1lbnRlIHkgZWwgbW9kZWxvIHN1Z2VyaWRvIHBvciBsYSBoZXJyYW1pZW50YSAiYXV0by5hcmltYSgpIiwgc2UgbGxlZ2Fyb24gYSBsYXMgc2lndWllbnRlcyBjb25jbHVzaW9uZXM6XA0KMSkgRWwgbW9kZWxvIHF1ZSBub3Mgb2ZyZWNlIGxhIGhlcnJhbWllbnRhIChhdXRvLmFyaW1hKSBwcmVzZW50YSB1biBBa2Fpa2UgbWVub3IgcXVlIGVsIHByb3B1ZXN0byBtYW51YWxtZW50ZS5cDQoyKSBTaW4gZW1iYXJnbywgZWwgbW9kZWxvIHByb3B1ZXN0byBhdXRvbeF0aWNhbWVudGUgcHJlc2VudGEgcHJvYmxlbWFzIGRlIGNvcnJlbGFjafNuIHNlcmlhbCBiYXNhbmRvbm9zIGVuIGVsICJQLXZhbHVlIiBxdWUgbm9zIGdlbmVyYSBlbCBzdW1tYXJ5LCBwcm95ZWN0YW5kbyDpc3RlIHVuIHZhbG9yIG1lbm9zIGEgLjA1LlwNCjMpIFBvciB0YW50bywgZWwgbW9kZWxvIHByb3B1ZXN0byBkZSBmb3JtYSBtYW51YWwgZXMgZWwgc3VnZXJpZG8gcGFyYSBlbCBwcm9jZXNvIGRlIHByb27zc3RpY28geWEgcXVlIHByZXNlbnRhIHVuIEFrYWlrZSBsaWdlcmFtZW50ZSBtYXlvciBwZXJvIHNpbiBwcm9ibGVtYXMgZGUgY29ycmVsYWNp824gc2VyaWFsLCBjdW1wbGllbmRvIGFz7SBjb24gbG9zIHJlcXVlcmltaWVudG9zIGVzZW5jaWFsZXMgcGFyYSBwcm9zZWd1aXIgY29uIGVsIHB1bnRvIHBvc3Rlcmlvci4NCg0KDQo8c3BhbiBzdHlsZT0iY29sb3I6cmVkIj4gMTEuIEdlbmVyYXIgZWwgZ3LhZmljbyBkZSB1biBwcm9u83N0aWNvIGEgZG9zIGHxb3MgY29uIGJhc2UgZW4gZWwgbW9kZWxvIEFSSU1BIHkNCmFsZ/puIG3pdG9kbyBhZGljaW9uYWwgcXVlIG5vIHJlcXVpZXJhIGRpZmVyZW5jaWFjafNuLg0KDQotIFByb27zc3RpY28gZGVsIG1vZGVsbyBBUklNQSBzZWxlY2Npb25hZG8uIA0KDQpgYGB7cn0NCmF1dG9wbG90KGZvcmVjYXN0KGZpdDIpLCB4bGFiID0gIlBlcmnzZG8iLCB5bGFiID0gImxvZyAoRkJLRikiICkNCmBgYA0KIC0gUmVwcmVzZW50YWNp824gZ3LhZmljYQ0KIA0KYGBge3J9DQpmb3JlY2FzdChmaXQyKQ0KYGBgDQogDQoNCi0gTel0b2RvIGRlIHRlbmRlbmNpYSAoSG9sdCBXaW50ZXJzKS4NCg0KYGBge3J9DQpGQktGU1QxIDwtIHdpbmRvdyhGQktGU1QsIHN0YXJ0PTIwMDApDQpmYyA8LSBob2x0KEZCS0ZTVDEsIGg9MTUpDQpmYzIgPC0gaG9sdChGQktGU1QxLCBkYW1wZWQ9VFJVRSwgcGhpID0gMC45LCBoPTE1KQ0KYXV0b3Bsb3QoRkJLRlNUMSkgKyBhdXRvbGF5ZXIoZmMsIHNlcmllcz0iSG9sdCdzIG1ldGhvZCIsIFBJPUZBTFNFKSArIGF1dG9sYXllcihmYzIsIHNlcmllcz0iRGFtcGVkIEhvbHQncyBtZXRob2QiLCBQST1GQUxTRSkgKyBnZ3RpdGxlKCJGb3JlY2FzdHMgZnJvbSBIb2x0J3MgbWV0aG9kIikgKyB4bGFiKCJZZWFyIikgKyB5bGFiKCJGQktGIChtaWxsb25lcykiKQ0KYGBgDQpgYGB7cn0NCmZvcmVjYXN0KGZjMikNCmBgYA0KDQoNCi0gU3Vhdml6YW1pZW50byBleHBvbmVuY2lhbA0KDQpgYGB7cn0NCmZiIDwtIHNlcyhGQktGU1QxLCBoPTEwKQ0Kcm91bmQoYWNjdXJhY3koZmIpLCAzKQ0KYXV0b3Bsb3QoZmMpICsgYXV0b2xheWVyKGZpdHRlZChmYyksIHNlcmllcz0iRml0dGVkIikgKyB5bGFiKCJGQktGIG1pbGxvbmVzIikgKyB4bGFiKCJZZWFyIikNCmBgYA0KYGBge3J9DQpmb3JlY2FzdChmYikNCmBgYA0KDQo=