R/print.TransModel.R

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

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

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