Nothing
xy2abc <-
function(xy)
{
tmat = c(sqrt(3) / 2, -0.5, 0, 1)
dim(tmat) = rep(2, 2)
res = as.matrix(xy) %*% tmat
res = cbind(res[,2], 1 - rowSums(res), res[,1])
colnames(res) = c("a", "b", "c")
res
}
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.