## 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, 2, 1)
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, labelx = "Time", labely = "Time", show_ticks = TRUE, unit = 2,
cols = "blue", pcex = 1)
Run the code above in your browser using DataLab