Nothing
crosspoint <- function(a1,b1, a2,b2){
x <- (a1-a2)/(b2-b1)
y <- a2 + b2*x
return(cbind(x,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.