R/methods.R

In mattansb/marginC: Create a multi-factor vector of weights

#' 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')
  }
}