R/summary.DirichletRegData.R

Defines functions summary.DirichletRegData

Documented in summary.DirichletRegData

summary.DirichletRegData <- function(object, ...){

  if(interactive()) writeLines("")
  writeLines(paste0("This object contains compositional data with ", attr(object, "dims"), " dimensions."))

  writeLines(paste0("Number of observations: ", attr(object, "obs"),
    " of which ", attr(object, "valid_obs"), " ( ", round(100*attr(object, "valid_obs")/attr(object, "obs"),2), "% ) are valid."))

  if(attr(object, "normalized") || attr(object, "transformed")){
    cat("\nNote: The data were ")
    if(attr(object, "normalized")) cat("normalized")
    if(attr(object, "normalized") && attr(object, "transformed")) cat(" and ")
    if(attr(object, "transformed")) cat("transformed")
    cat(".\n")
  }

  if(interactive()) writeLines("")

}

Try the DirichletReg package in your browser

Any scripts or data that you put into this service are public.

DirichletReg documentation built on May 18, 2021, 5:06 p.m.