Nothing
"bct" <-
function(y,lambda){
gm <- exp( mean( log(y) ) )
if(lambda==0) return( log(y)*gm )
yt <- (y^lambda - 1)/( lambda * gm^(lambda-1) )
return(yt)
}
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.