R/print.BICmat.R

In mixPHM: Mixtures of Proportional Hazard Models

`print.BICmat` <-
function(x,...)
# object of class BICmat
{
  dimnames(x$BICmat) <- list(x$method,paste("K =",x$K))
  cat("\n")
  cat("Survival distribution:",x$Sdist,"\n")
  cat("\n")
  print(x$BICmat)
  cat("\n")
}