Nothing
IntersectPoint <-
function(A, B, C)
{
if(all(A==B))
{
return (0)
}
##This gives a proportion of AB that the
##orthogonal line passing through C meets. If outside (0,1)
##it does not pass through AB
##the surrounding c() transforms this from a matrix to a scaler value.
c(((B-A) %*% (C-A)) / ((B-A) %*% (B-A)))
}
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.