#'
#' Return model parameters (including input data)
#'
#' @param object a \code{bdm} class object
#' @param ... additional arguments to generic function
#'
#' @export
getparams <- function(object, ...) UseMethod("getparams")
#'
#' @rdname getparams
#' @export
getparams.bdm <- function(object, ...) {
cpp <- getcpp(object)
params <- grep("vals_r__ = context__.vals_r(", fixed = TRUE, value = TRUE, x = strsplit(cpp, "\n")[[1]])
params <- sapply(strsplit(params, "\""), FUN = function(x) x[[2]])
return(params)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.