R/LLOD_summary.R

In JARS3N/preciseR: data processing and calculations

LLOD_summary <-
function(df,rate){
  summarize(df,
    Rate = rate,
    Blank_mu = mu[condition=="Blank"],
    Blank_sd = sd[condition=="Blank"],
    Blank_n = n[condition=="Blank"],
    Signal_mu = mu[condition=="Signal"],
    Signal_sd = sd[condition=="Signal"],
    Signal_n = n[condition=="Signal"],
    LLOD = LLOD(Blank_sd,Blank_n,Signal_sd,Signal_n)
  )
}