R/methods.R

#' 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')
  }
}
mattansb/marginC documentation built on May 28, 2019, 3:39 p.m.