Nothing
Rotate_function <-
function(data_3D,angle){
z <- -data_3D[,3]
x <- data_3D[,1]
x_rot <-c(x*cos(angle)-z*sin(angle))
y_rot <-c(x*sin(angle)+z*cos(angle))
return(data.frame(x_rot,y_rot))
}
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.