Nothing
histoPlot <- function(af, nbins = 50) {
hist(af$ri, nclass = nbins, xlab = "", main = "FCROS/PFCO statistics", xlim = c(0, 1));
}
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.