powered by
calculateCapillary
calculateCapillary(samples.table, plot.table, sq = 0, run = "", debug = FALSE)