powered by
xcor2(a1, a2, DT, PLOT = FALSE, LAG = 100)
data(CE1) ts1 = CE1$y[CE1$x>5.443754 & CE1$x<5.615951] ts2 = CE1$y[CE1$x>5.760959] ts2 = ts2[1:length(ts1)] ts1 = ts1-mean(ts1) ts2 = ts2-mean(ts2) xc = xcor2(ts1, ts2, CE1$dt , PLOT = TRUE)
Run the code above in your browser using DataLab