Nothing
acw <- function(xxx) {
xbar <- sum(xxx$x)/length(xxx$x)
ybar <- sum(xxx$y)/length(xxx$y)
theta <- atan2(xxx$y - ybar,xxx$x-xbar)
theta <- ifelse(theta > 0, theta, theta + 2 * pi)
theta.0 <- sort(unique(theta))
iii <- match(theta.0, theta)
xxx$x <- xxx$x[iii]
xxx$y <- xxx$y[iii]
xxx$bp <- xxx$bp[iii]
xxx
}
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.