R/summary.BANOVA.Normal.R

In BANOVA: Hierarchical Bayesian ANOVA Models

summary.BANOVA.Normal <-
function(object, ...){
  res <- list(anova.table = object$anova.table,
              coef.table = object$coef.tables$full_table,
              pvalue.table = object$pvalue.table, conv = object$conv, full_object = object, call = object$call)
  class(res) <- "summary.BANOVA.Normal"
  res
}