# NOT RUN {
set.seed(1)
x <- arfima.sim(1000, d=0.6, ar=c(-0.4))
fit <- mde.arfima(x, p=1, incl.mean=FALSE, verbose=TRUE)
## Fit Summary
## --------------------
## Ljung-Box p-val: 0.276
## d ar.1
## est 0.55031 -0.39261
## err 0.03145 0.03673
##
## Correlation Matrix for ARFIMA Parameters
## d ar.1
## d 1.0000 0.6108
## ar.1 0.6108 1.0000
# }
Run the code above in your browser using DataLab