Nothing
horizon <- function(h, r=6378137) {
x = cbind(as.vector(h), as.vector(r))
h = x[,1]
r = x[,2]
b = 0.8279
sqrt( 2 * r * h / b )
}
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.