R/print.hierbasis.R

print.hierbasis <- function(x, digits = 3, ...) {
  cat("\nCall: ", deparse(x$call), "\n\n")
  print(cbind(Lambda = signif(x$lambdas, digits),
              Deg.of.Poly = x$active))
}
dfleis/hierbasis2 documentation built on May 17, 2019, 7:03 p.m.