set.seed(123)
sim <- fracdiff::fracdiff.sim(
n = 1000,
ar = 0.3, # AR(1) coefficient
ma = -0.4, # MA(1) coefficient
d = 0.25 # fractional differencing parameter
)
x <- sim$series
y <- filterx(x)
Run the code above in your browser using DataLab