Nothing
get.tau <-
function(trans=0.5, nu=0.2, kappa=14*.96, N=1000){
beta <- beta.from.T(T=trans, nu=nu)
alpha <- beta*kappa - nu
log(sqrt(N))/alpha
}
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.