R/summary.BANOVA.Bern.R

In BANOVAapp/BANOVA_R: Hierarchical Bayesian ANOVA Models

summary.BANOVA.Bernoulli <-
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.Bernoulli"
  res
}