R/print.TransModel.R

In TransModel: Fit Linear Transformation Models for Right Censored Data

Defines functions print.TransModel

Documented in print.TransModel

print.TransModel <-
function(x,...){
	cat("Call:\n")
	print(x$call)
  if(x$p==0){ 
    cat("No covariates/ null model.","\n")
  }
  if(x$p>0){
	cat("\nCoefficients:\n")
	print(x$coefficients)
	cat("\nCovariance Matrix:\n")
	print(x$vcov)
  }
	class(x)<-"TransModel"
}

Try the TransModel package in your browser