Nothing
### Helper functions ----
# Fisher z
fishz <- function(x) log((1+x)/(1-x))/2
# inverse Fisher z
inv.fishz <- function(x) {
out <- (exp(2*x)-1)/(exp(2*x)+1)
out[is.na(out)] <- 1
return(out)
}
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.