x <- AirPassengers
plot(x)
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
La estacionalidad se mira cuando el P-valos es menor a 0.05 y en este ejercicio se mira que si tiene estacionalidad ya que su P-valor es de 0.01.