attach(ibmSp500)
series <- tail(ibmSp500[,2:3],400)
lseries <- log(series+1)
## Not run:
# mADCFplot(lseries,MaxLag=18)
# mADCFplot(lseries^2,MaxLag=18)
# acf(lseries,lag.max=18)
# acf(lseries^2,lag.max=18)## End(Not run)
Run the code above in your browser using DataLab