R/print.samias.R

print.samias <- function (x, digits = max(3, getOption("digits") - 3), ...) 
{
  cat("\nCall: ", deparse(x$call), "\n\n")
  print(cbind(k = x$k, Df = x$df, `BIC` = signif(x$bic, digits)))
}

Try the AMIAS package in your browser

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

AMIAS documentation built on May 2, 2019, 2:10 a.m.