Nothing
anglesArc <-
function (v, theta)
{
theta.OX <- ifelse(v[2] >= 0, acos(v[1]), 2 * pi - acos(v[1]))
angs <- c(theta.OX - theta, theta.OX + theta)
return(angs)
}
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.