Nothing
"bplot" <-
function (x, by,style = "tukey", outlier = TRUE, plot = TRUE, ...)
{
obj <- stats.bplot(x, style = style, outlier = outlier, by=by)
if (plot) {
bplot.obj(obj, ...)
}
else {
return(obj)
}
invisible()
}
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.