Atividade 2

Nesta atividade será feito um gráfico representando as sequências de uma função a partir um amostra aleatória para os erros ~ N(0,1).

X <- rep(NA, 1000)
set.seed(123)
E = rnorm(1000, 0,  1)

X[1] =  E[1]

for(i in 1:999){
 
  
 X[i+1] = X[i]^2%%100 + E[i+1]
  
}

plot(X[-1000], X[-1], )