R/split_ssmdzprime_output.R

In JARS3N/preciseR: data processing and calculations

split_ssmdzprime_output <-
function(xl,m=6,rate="OCR"){
  filter(xl,Measurement==m,Group!="Background") %>% 
    select(Group,Rate=matches(rate)) %>% 
    group_by(Group) %>% 
    summarise(mu=mean(rate),sd=sd(rate),n=n()) %>% 
    ungroup() %>% 
    arrange(mu) %>% 
    mutate(condition = c("Neg","Pos")) %>% 
    ssmd_zprime_summary(.,rate)
}