R/ssmd_zprime_summary.R

In JARS3N/preciseR: data processing and calculations

ssmd_zprime_summary <-
function(df,rate){
summarize(df,
  Rate = rate,
  Pos_mu = mu[condition=="Pos"],
  Pos_sd = sd[condition=="Pos"],
  Pos_n = n[condition=="Pos"],
  Pos_cv = 100*(Pos_sd/Pos_mu),
  Neg_mu = mu[condition=="Neg"],
  Neg_sd = sd[condition=="Neg"],
  Neg_cv = 100*(Neg_sd/Neg_mu),
  Neg_n = n[condition=="Neg"],
  z_prime = Zprime(Pos_mu,Neg_mu,Pos_sd,Neg_sd),
  ssmd = ssmd(Pos_mu,Neg_mu,Pos_sd,Neg_sd)
)
}