rotation <- function(coords, angle) {
radian <- (angle * pi) / 180
x <- c(cos(radian), -sin(radian))
y <- c(sin(radian), cos(radian))
nlecoord <- coords %*% cbind(x, y)
return(nlecoord)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.