R/print.DirichletRegData.R

In maiermarco/DirichletReg: Dirichlet Regression

Defines functions print.DirichletRegData

Documented in print.DirichletRegData

print.DirichletRegData <- function(x, type=c("processed", "original"), ...){

  if(match.arg(type) == "processed") print(x[,]) else attr(x, "Y.original")

}