Laboratorio 3

#LABORATORIO 3

ESTASIONARIEDAD

dx <- diff(x)
plot(dx)

tseries::adf.test(dx)

## Warning in tseries::adf.test(dx): p-value smaller than printed p-value

## 
##  Augmented Dickey-Fuller Test
## 
## data:  dx
## Dickey-Fuller = -7.0177, Lag order = 5, p-value = 0.01
## alternative hypothesis: stationary

#CONCLUSION

La serie de tiempo presenta estasionariedad debido a que en la prueba dicky-fuller da como resultado -7.0177 y el p valor es 0.01 menor a 0.05, ambos indicadores de estasionariedad en el modelo.