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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.