#' Print marginal-weights vectors
#'
#' @author Mattan S. Ben-Shachar
#' @param x a marginal-weights vector
#' @export
print.mw <- function(x) {
grid <- attr(x,'grid')
attributes(x) <- NULL
print(x)
if (is.null(grid)) {
cat('No grid provided\n')
} else {
cat('Grid provided\n')
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.