# NOT RUN {
estimates <- calculateConc(5000, 20000, volSamp = 20, volDrp = 0.85)
estimates
# Output:
# $lambda
# lambda lower upper
# 1.386294 1.362289 1.410299
#
# $conc
# conc lower upper
# 32618.69 32053.87 33183.51
# }
Run the code above in your browser using DataLab