data(daVi); data(daCh)
t.mtar <- -0.451
aem <- ecmAsyFit(y=daVi, x=daCh, lag=4, model="mtar",
split=TRUE, thresh=t.mtar)
ecmDiag(aem, 3)
sem <- ecmSymFit(y=daVi, x=daCh, lag=4)
ecmDiag(sem)Run the code above in your browser using DataLab