Nothing
#' @export
sort.mcmc <- function(x, ...) set_class(x[, order(as_term(x)), drop = FALSE], "mcmc")
#' @export
sort.mcmc.list <- function(x, ...) set_class(lapply(x, sort), "mcmc.list")
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.