# NOT RUN {
series<-VARFIMA.sim(phi=0.4, THETA=matrix(c(0,0,0,0),2,2),
d.vec=c(0.4,0.3), T=1000, Sigma=matrix(c(1,0.4,0.4,1),2,2))
ts.plot(series, col=1:2)
acf(series, lag=100)
VARFIMA.est(series, approx=100, rep=FALSE)
# }
Run the code above in your browser using DataLab