R/print.lba.ls.R

Defines functions print.lba.ls

Documented in print.lba.ls

print.lba.ls <- function(x, 
                         digits = 3L, 
                         ...) {

  cat("\nCall:\n", 
      paste(deparse(x$call), 
            sep = "\n", 
            collapse = "\n"), 
      "\n")

  aoi <- round(x$Aoi, 
               digits)
  boi <- round(x$Boi,
               digits)

  cat("\nIdentified mixing parameters:\n\n") 
  print.default(aoi,
                ...) 

  cat("\nIdentified latent budget:\n\n") 
  print.default(boi, 
                ...)
 
  cat("\nBudget proportions:\n") 
  pkk <- round(x$pk,
               digits)
  print.default(pkk, 
                ...) 
}

Try the lba package in your browser

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

lba documentation built on May 13, 2022, 1:06 a.m.