Nothing
whichIt <- function (burnIn,
iterations,
thinTo) {
# Determine which iterations will be kept.
if (burnIn == 0) {
return (ceiling(seq(from = 1,
to = iterations,
length.out = thinTo)))
} else {
return (ceiling(seq(from = burnIn * iterations,
to = iterations,
length.out = thinTo)))
}
}
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.