Nothing
`rotation` <-
function(coords,angle)
{
radian <- (angle * pi)/180
x <- c(cos(radian),- sin(radian))
y <- c(sin(radian),cos(radian))
nlecoord=coords %*% cbind(x,y)
return(nlecoord)
}
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.