Nothing

```
`Rotation` <-
function(xy, angle)
{
xy<-as.matrix(xy)
### Find cos and sin of the angle
cos.angle <- cos(angle)
sin.angle <- sin(angle)
### Rotate the set of coordinates
xy.rot<-xy %*% t( matrix(c(cos.angle,sin.angle, -sin.angle, cos.angle), 2,2) )
return(xy.rot)
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.