R/ssmd.R

In JARS3N/preciseR: data processing and calculations

ssmd <-
function(mup,mun,sdp,sdn){
  #mup = positive control mean
  #mun = negative control mean
  #sdp = positive control standard deviation
  #sdn = negative control standard deviation  
sum(mup,mun)/sqrt(sum(sdp^2,sdn^2))
}