## run a simple crqa
# ts1 = c(0, 0, 1, 1, 0, 0, 2, 2, 1, 1)
# ts2 = c(1,1, 2, 2, 0, 0, 1, 2)
# delay = 1; embed = 1; rescale = 1; radius = 0.001;
# normalize = 0; mindiagline = 2; minvertline = 2;
# tw = 0;
# res = crqa(ts2, ts1, delay, embed, rescale, radius, normalize, mindiagline, minvertline, tw)
# RP = res$RP
# plotRP(RP, par=c(labelx = "Time", labely = "Time", show_ticks = TRUE, unit = 2,
# cols = "blue", pcex = 1))
Run the code above in your browser using DataLab