R/print.summary.iptw.R

Defines functions print.summary.iptw

Documented in print.summary.iptw

#' Produces a summary table for `iptw` object
#'
#' @param x An `iptw` object
#' @param ... Additional arguments.
#'
#' @method print summary.iptw
#' @export
#' @md
print.summary.iptw <- function(x, ...)
{
      	nSum <- length(x$summaryList)      	
      	for(i in 1:nSum){	
      		cat("Summary for time period ", x$uniqueTimes[i], ": \n")
      		print(x$summaryList[[i]])
      		if (i<nSum) cat("\n")
      	}

      invisible(x)
     }

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.