R/print.summary.TransModel.R

print.summary.TransModel <-
function(x,...){
	cat("Call:\n")
	print(x$call)
	cat("\n")
	if(x$p==0){
    	  cat("No covariates/ null model: ","\n")
    	  cat("n = ",length(x$ord.delta),"\n")
    	  cat("n.event = ",sum(x$ord.delta),"\n")
	}
	if(x$p>0){ 
	  printCoefmat(x$coefficients,P.values=TRUE,has.Pvalue=TRUE)
	}
	class(x)<-"summary.TransModel"
}

Try the TransModel package in your browser

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

TransModel documentation built on May 2, 2019, 6:13 a.m.