x <- AirPassengers
tseries::adf.test(x)
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
## Warning in tseries::adf.test(x): p-value smaller than printed p-value
##
## Augmented Dickey-Fuller Test
##
## data: x
## Dickey-Fuller = -7.3186, Lag order = 5, p-value = 0.01
## alternative hypothesis: stationary
plot(x)
El p-value obtenido gracias a la prueba de Dickey Fuller es de 0.01, al ser este menor de 0.05 demuestra que la serie de tiempo presenta estacionariedad, a pesar que esto se puede ver también en el gráfico.