Zprime <-
function(mup,mun,sdp,sdn){
#mup = positive control mean
#mun = negative control mean
#sdp = positive control standard deviation
#sdn = negative control standard deviation
1-((3*sum(sdp,sdn))/abs(mup-mun))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.