R/sort.R

In mcmcr: Manipulate MCMC Samples

Defines functions sort.mcmcrs sort.mcmcr

#' @export
sort.mcmcr <- function(x, ...) subset(x, pars = sort(pars(x)))

#' @export
sort.mcmcrs <- function(x, ...) {
  set_class(lapply(x[order(names(x))], sort), "mcmcrs")
}

Try the mcmcr package in your browser