Nothing
stdofT <-
function( tnmvec, meanarr, sdarr ){
mvalue = tnmvec[2]
mum = meanarr[ which(meanarr[,2]==mvalue),1]
sigmam = sdarr[ which(sdarr[,2]==mvalue),1]
stdtn = (tnmvec[1] - mum)/sigmam
return( c(stdtn, mvalue) )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.