R/lam_names.R

In plmmr: Penalized Linear Mixed Models for Correlated Data

#' Generate nicely formatted lambda vec
#'
#' @param l Vector of lambda values.
#'
#' @return A character vector of formatted lambda value names
#'
#' @keywords internal
#'
#' @rdname 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)
}