R/summary.R

In hyper2: The Hyperdirichlet Distribution, Mark 2

"summary.hyper2" <- function(object, ...){
    out <- list(
        size   = size(object),
        pnames = pnames(object),
        no.of.brackets = length(brackets(object)),
        sumofpowers = sum(powers(object)),
        tableoflengths = table(c(lapply(elements(brackets(object)),length),recursive=TRUE)),
        tableofpowers = table(powers(object))
  )
  class(out) <- "summary.hyper2"
  return(out)
}

"print.summary.hyper2" <- function(x, ...){
    cat(paste("A hyper2 object of size ", x[[1]], ".\n",sep=""))
    cat("pnames: ", x[[2]],"\n") 
    cat("Number of brackets:", x[[3]],"\n") 
    cat("Sum of powers:", x[[4]],"\n\n") 
    cat("Table of bracket lengths:")
    print(x[[5]])
    cat("\nTable of powers:")
    print(x[[6]])
}

"summary.hyper3" <- function(object, ...){
  out <- c(
      summary.hyper2(object), 
      list(tableofweights = table(unlist(weights(object))))
  )
  class(out) <- "summary.hyper3"
  return(out)
}

"print.summary.hyper3" <- function(x, ...){
    cat(paste("A hyper3 object of size ", x[[1]], ".\n",sep=""))
    cat("pnames: ", x[[2]],"\n") 
    cat("Number of brackets:", x[[3]],"\n") 
    cat("Sum of powers:", x[[4]],"\n\n") 
    cat("Table of bracket lengths:")
    print(x[[5]])
    cat("\nTable of powers:")
    print(x[[6]])
    cat("\nTable of weights:")
    print(x[[7]])
}