powered by
lagplot(y1, dt, lag, PLOT = FALSE)
plot(MTS1$freq, nphase, main=paste(sep=' ', "thelag=",phaselag) ) abline(MOD) lagplot(ts1, DT, phaselag, PLOT=TRUE )
Run the code above in your browser using DataLab