Nothing
`truncZ` <-
function(z.perm,z.min,z.max){
z.perm[z.perm<z.min]<-z.min
z.perm[z.perm>z.max]<-z.max
z.perm
}
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.