x <- rlnorm(100)
y <- rlnorm(200, meanlog=1.2)
MADCI(x) # single sample
MADCI(x, y) # two sample difference
MADCI(x, y, two.samp.diff = FALSE) # two sample squared ratio
Run the code above in your browser using DataLab