Nothing
rotate <- function(x1,x2,y1,y2)
{
a <- atan((y2-y1)/(x2-x1))
a <- (a * 180) / (pi)
a <- a*(-1)
return(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.