Nothing
getCosine <-
function(v1,v2){
# Find the cosine value of angle of vectors v1 and v2
if(sum(v1^2)*sum(v2^2)==0)return(0)
return(sum(v1*v2)/sqrt(sum(v1^2)*sum(v2^2)))
}
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.