Nothing
"bgrGrid" <-
function(node, bins = 50)
# Calculate grid of points at which to evaluate bgr statistic
{
sampleSize <- samplesSize(node)
beg <- samplesGetBeg()
end <- min(c(samplesGetEnd(), modelIteration()))
numChains <- samplesGetLastChain() - samplesGetFirstChain() + 1
sampleSize <- sampleSize %/% numChains
beg <- end - (sampleSize * samplesGetThin() - 1)
delta <- sampleSize %/% bins
grid <- ((1 : (bins - 1)) * delta) + beg
grid <- c(grid, end)
grid
}
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.