plot cdfs

plot_cdfs = function(samples, sample_names, xrange=c(0,1), xlab="Delay (ns)", ylab="Probability") {
        ltys=seq(1,6)
        plot(xrange,c(0,1),xlab=xlab, ylab=ylab, type="n")
        for (i in seq(1, length(samples))) {
                sample = samples[[i]]
                l = ltys[i]
                print(sprintf("sample: %s, lty: %s", sample_names[[i]], l))
                lines(ecdf(sample), lty=l)
        }

        legend('center', 'groups', sample_names, lty=ltys[1:length(samples)])
}

samples = list(c(1,2,3,2,1,3), c(3,4,2,3,1,2,3))
plot_cdfs(samples, c("A", "B"), xrange=c(min(unlist(samples)), max(unlist(samples))))