R/LLOD_output.R

In JARS3N/preciseR: data processing and calculations

LLOD_output <-
function(xl,m = 6,rate=NULL){
### assumptions
# this assumes that the group names are not correctly named 
# and blank & signal are assumed by which group is larger and smaller
### inputs
# xl takes a data.frame of rates read in from XL output
# m is for measurement,assuming 6 atm
###
# filter outbackground wells 
# filter by correct Measurement
filter(xl,Measurement==m,Group != "Background") %>% 
    select(Group,Rate=matches(rate)) %>% 
    group_by(Group) %>% 
    summarise(.,n=n(),sd=sd(Rate),mu=mean(Rate)) %>% 
    ungroup() %>% 
    arrange(mu) %>% 
    mutate(condition = c("Blank","Signal")) %>% 
    LLOD_summary(.,rate)
}