# NOT RUN {
data(crqa)
res = drpdfromts(RDts1, RDts2, ws = 100,
datatype = "categorical", radius = 0.000001)
profile = res$profile
plot(seq(1,length(profile),1),profile,type = "l", lwd = 5,
xaxt = "n", xlab = "Delays", ylab = "Recurrence")
# }
Run the code above in your browser using DataLab