R/print_bcgam.R

In bcgam: Bayesian Constrained Generalised Linear Models

#' @export
#' @keywords internal
print.bcgam <- function(x,...)
{
	mean.alpha=apply(x$alpha.sims,2,"mean")
	names(mean.alpha)=x$znms	
	cat("Call:\n")
	print(x$call)
	cat("\nCoefficients:\n")
	print(mean.alpha)	
}