Nothing
lineslope <-
function(K) {
line.slope=c()
for (i in 1:K)
{
line.slope[i]=-tan((K+1-i)*pi/(2*(K+1)))
}
return(line.slope)
}
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.