# NOT RUN {
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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab