R/generic.R

In osbosb/DEClust: DE analysis based on Clustering

print.DEClust <- function(x, ...) {
  cat("DEClust class object\n")
  cat("iter = ", sapply(x, "[[", "iter"), "\n")
  cat("logLik = ", sapply(x, "[[", "logL"), "\n")
  cat("AIC = ", sapply(x, "[[", "AIC"), "\n")
  cat("BIC = ", sapply(x, "[[", "BIC"), "\n")
}