Nothing
zt<-function(x=NULL,ctype=1){
if(is.null(x)) stop ("time series is missing.")
if(!is.numeric(x)) stop ("time series is not numeric.")
if(ctype==1) return((x-mean(x,na.rm=T))/sd(x,na.rm=T))
if(ctype==2) return(x-mean(x,na.rm=T))
}
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.