R/print.lba.ls.logit.R

Defines functions print.lba.ls.logit

Documented in print.lba.ls.logit

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

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

  an <- round(x$A, 
              digits)
  bn <- round(x$B, 
              digits)

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

  cat("\nIdentified latent budget:\n\n") 
  print.default(bn,
                ...) 

  cat("\nBudget proportions:\n") 
  pkk <- round(x$pk, 
               digits)
  rownames(pkk) <- c('')
  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 Aug. 31, 2023, 1:08 a.m.