R/print.summary.ps.R

Defines functions print.summary.ps

Documented in print.summary.ps

#' Produces a summary table for `ps` object
#'
#' @param x An `ps` object
#' @param ... Additional arguments.
#' 
#' @method print summary.ps
#' @export
#' @md
print.summary.ps <- function(x, ...)
{
      dots <- list(...)
      if(!is.null(dots$digits))
      obj <- round(x, digits = digits)
      else
      obj <- x
      class(obj) <- "matrix"
      print(obj)
      }

Try the twang package in your browser

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

twang documentation built on May 29, 2024, 4:40 a.m.