Nothing
ba <- c(0.320,0.297,0.264,0.306,0.291,0.290,0.316,0.324,
0.295,0.294,0.235,0.283,0.273,0.295,0.327)
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.