# NOT RUN {
set.seed(1)
x <- arfima.sim(1000, d=0.6, ar=c(-0.4))
fit <- mle.arfima(x, p=1, incl.mean=FALSE, verbose=TRUE)
## Fit Summary
## --------------------
## Ljung-Box p-val: 0.263
## sig2 d ar.1
## est 1.09351 0.53933 -0.37582
## err 0.05343 0.04442 0.05538
##
## Correlation Matrix for ARFIMA Parameters
## sig2 d ar.1
## sig2 1.0000 -0.3349 0.4027
## d -0.3349 1.0000 -0.8318
## ar.1 0.4027 -0.8318 1.0000
# }
Run the code above in your browser using DataLab