R/print.summary.TransModel.R

In TransModel: Fit Linear Transformation Models for Right Censored Data

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"
}