N <- 100
PHI <- 0.2
THETA <- 0.1
SD <- 1
M <- 0
D <- 0.2
Seed <- 123
set.seed(Seed)
Sim.Series <- fracdiff::fracdiff.sim(n = N,ar=c(PHI),ma=c(THETA),d=D,rand.gen =rnorm,sd=SD,mu=M)
simts <- as.ts(Sim.Series$series)
WaveletForecast<-WaveletFittingann(ts=simts,Waveletlevels=3,Filter='d4',
nonseaslag=5,hidden=3,NForecast=5)
Run the code above in your browser using DataLab