Nothing
get.brachiopod<-function()
{
bx = c(-.5, -0.4648232373807, -0.3765825678890,-0.2144105266610, -0.0593931343107,
0.0593931343107,0.2144105266610,0.3765825678890,0.4648232373807, 0.5)
by = c(0.0 , 0.139203811333, 0.248963900427, 0.372735915788,0.419442336678,
0.419442336678,0.372735915788,0.248963900427,0.139203811333, 0.0)
BK = cbind(bx, by)
return(BK)
}
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.