Nothing
w.plot <-
function(x, y, mu, coef.radii, xlim = NULL, ylim = NULL, lwd = NULL, add = NULL, ...)
{
symbols(x, y, mu * coef.radii, inches = FALSE, xlim = xlim, ylim = ylim,lwd = lwd)
}
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.