R/lam_names.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/hdrm documentation built on March 29, 2025, 5:18 a.m.