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