R/models.R

In poissonconsulting/jaggernaut: Bayesian Analyses using 'JAGS'

models <- function (object, ...) {
  UseMethod("models", object)
}

"models<-" <- function (object, value) {
  UseMethod("models<-", object)
}

models.jags_model <- function (object, ...) {
  object$models
}

"models<-.jags_model" <- function (object, value) {
  stopifnot(is.list(value))
  stopifnot(all(unlist(lapply(value, is.jagr_model))))
  
  object$models <- value
  rename_models(object)
}