LLOD <-
function(SDB,nB,SDS,nS,muB=0,percentile=0.975){
# muB is the mean of the Blanck defaults assumed to be 0
# SDB is the standrd deviation of the Blank
# nB is the number of data points in the Blank
# SDS is the standard deviation of the Signal
# nS is the number of data points in the Signal
sum(muB, qt(percentile,nB-1)*SDB,qt(percentile,nS-1)*nS)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.