R/print.summary.mniptw.R

Defines functions print.summary.mniptw

# Produces a summary table for ps object 
print.summary.mniptw <- function(x, ...)
{
      	nSum <- length(x$summaryList)      	
      	for(i in 1:nSum){	
      		cat("Summary for time period ", x$uniqueTimes[i], ": \n")
      		print(x$summaryList[[i]])
      		
      	}

      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 2, 2019, 6:53 p.m.