Defines functions print.ratetable

Documented in print.ratetable

print.ratetable <- function(x, ...) {
    if (is.null(attr(x, 'dimid')))
        cat ("Rate table with dimension(s):", names(dimnames(x)), "\n")
    else  cat ("Rate table with dimension(s):", attr(x, 'dimid'), "\n")
  attributes(x) <- attributes(x)[c("dim", "dimnames")]

Try the survival package in your browser

Any scripts or data that you put into this service are public.

survival documentation built on Aug. 24, 2021, 5:06 p.m.