Nothing
stdata <-
function(data){
cdata<-data-matrix(apply(data,2,mean),nrow=dim(data)[1],ncol=dim(data)[2],byrow=TRUE)
zdata<-cdata*matrix(1/sqrt(apply(data,2,var)),nrow=dim(data)[1],ncol=dim(data)[2],byrow=TRUE)
zdata<-as.data.frame(zdata)
return(zdata)
}
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.