
USE ALL.
COMPUTE filter_$=(YEAR_ <= 2014).
VARIABLE LABEL filter_$ 'YEAR_ <= 2014 (FILTER)'.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.


* Gráficos de secuencia.
TSPLOT VARIABLES=Tasa_desempleo
  /NOLOG
  /FORMAT NOFILL REFERENCE.

ACF VARIABLES=Tasa_desempleo
  /NOLOG
  /MXAUTO 16
  /SERROR=IND
  /PACF.

ACF VARIABLES=Tasa_desempleo
  /NOLOG
  /DIFF=1
  /MXAUTO 16
  /SERROR=IND
  /PACF.

ACF VARIABLES=Tasa_desempleo
  /NOLOG
  /DIFF=1
  /SDIFF=1
  /MXAUTO 16
  /SERROR=IND
  /PACF.

PREDICT THRU YEAR 2015 QUARTER 2.
* Modelizador de series temporales.
TSMODEL
   /MODELSUMMARY  PRINT=[MODELFIT]
   /MODELSTATISTICS  DISPLAY=YES MODELFIT=[ SRSQUARE]
   /MODELDETAILS  PRINT=[ PARAMETERS FORECASTS]  PLOT=[ RESIDACF RESIDPACF]
   /SERIESPLOT OBSERVED FORECAST
   /OUTPUTFILTER DISPLAY=ALLMODELS
   /SAVE  PREDICTED(Pronosticado) LCL(LCI) UCL(LCS) NRESIDUAL(ResiduoN)
   /AUXILIARY  CILEVEL=95 MAXACFLAGS=24
   /MISSING USERMISSING=EXCLUDE
   /MODEL DEPENDENT=Tasa_desempleo
      PREFIX='Modelo'
   /EXPERTMODELER TYPE=[ARIMA] TRYSEASONAL=YES
   /AUTOOUTLIER  DETECT=ON TYPE=[ ADDITIVE LEVELSHIFT].

EXAMINE VARIABLES=ResiduoN_Tasa_desempleo_Modelo_1
  /PLOT BOXPLOT NPPLOT
  /COMPARE GROUPS
  /STATISTICS NONE
  /CINTERVAL 95
  /MISSING LISTWISE
  /NOTOTAL.
