R/S3.R

In proporz: Proportional Apportionment

Defines functions as.matrix.proporz_matrix print.proporz_matrix

#' @export
print.proporz_matrix = function(x, ...) {
    y <- as.matrix(x)
    print(y)
    invisible(x)
}

#' @export
as.matrix.proporz_matrix = function(x, ...) {
    matrix(x, nrow = nrow(x), dimnames = dimnames(x))
}

Try the proporz package in your browser