Nothing
stnd.Ht <-
function(Ht, n) {
h.mean <- apply(Ht, 2, mean)
sHt <- t( t(Ht) - h.mean )
sHt <- t( t(sHt) / apply( sHt, 2, function(x) { sqrt( sum(x^2) ) } ) )
sHt <- sHt * sqrt( nrow(Ht) / n )
return(sHt)
}
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.