Nothing
bc <- function(x, lambda) {
if ( abs(lambda) > 1e-9 ) {
y <- ( ( x[, -1] / x[, 1] )^lambda - 1 ) / lambda
} else y <- Log( x[, -1]/x[, 1] )
y
}
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.