File: print.lambdaReg.R

package info (click to toggle)
r-cran-eipack 0.2-2-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 476 kB
  • sloc: ansic: 1,155; makefile: 5
file content (10 lines) | stat: -rw-r--r-- 442 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
 
print.lambdaReg <- function(x, digits = max(2, getOption("digits") -
                                 4), ...) {
  denom <- as.character(x$call$columns)[2]
  for(i in 3:length(as.character(x$call$columns))){
    denom <- paste(denom,as.character(x$call$columns)[i], sep=", ")
  }
  cat("\nDenominator is sum(", denom,").", "\n\n", sep="")
  print.default(format(x$coef, digits = digits), 
                print.gap = 2, quote = FALSE, ...)
}