Pacote forecast, função arfima. x <- fracdiff.sim( 100, ma = -.4, d = .3)$series fit <- arfima(x) plot(forecast(fit,h=30)) tsdisplay(residuals(fit)) Felipe E. Barletta Mendes (41)9189-5198 (41)3025-2150 (41)3328-7216 http://www.leg.ufpr.br/doku.php/pessoais:felipe