LAB 3

Script a utilizar:

Ecuació No.1

library(forecast)

## Warning: package 'forecast' was built under R version 4.2.2

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

library(tseries)

## Warning: package 'tseries' was built under R version 4.2.2

x<- AirPassengers
plot(x)

tseries::adf.test(x)

## 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

Conclusión:

Se pudo determinar mediante el primer modelo que si existe estacionariedad ya que demostro un p-value con un valor de 0.01 lo que demuestra que si se cumple la norma de ser un valor menor a 0.05. Es importante mencionar que no fue necesario aplicar diferenciaciones.