Desarrollo Taller de Econometría 2

A continuación se muestran el código necesario para la realización del taller.

Código del Desarrollo del Punto 6

Simplemente se cambia el número de observaciones y la desviación estándar en el ruido blanco.

WN <- rnorm(1000000,0,1)

#ts.plot(WN,main="Proceso Ruido Blanco", col = "red")

#| Funciones de Autocorrelación: FACS y FACP
par(mfrow=c(1,2))
FACS <- acf(WN, main="FACS", ylim=c(-1,1), xlim=c(0,10))
FACP <- pacf(WN, main="FACP", ylim=c(-1,1), xlim=c(0,10))

FACS
FACP

summary(WN) #| Miremos la media
SD <- sd(WN)
VAR <- SD^2
VAR