R/lamNames.R

Defines functions lam_names

lam_names <- function(l) {
  if (length(l) > 1) {
    d <- ceiling(-log10(-max(diff(l))))
    d <- min(max(d,4), 10)
  } else {
    d <- 4
  }
  formatC(l, format="f", digits=d)
}
pbreheny/ncvreg documentation built on April 3, 2024, 3:54 p.m.