R/print.lfactor.R

#' @method print lfactor
#' @export
print.lfactor <- function(x, ...) {
  xi <- x
  attr(xi,"llevels") <- NULL
  print.factor(xi)
  cat("Numeric levels:", llevels(x), "\n")
}

Try the lfactors package in your browser

Any scripts or data that you put into this service are public.

lfactors documentation built on May 2, 2019, 8:29 a.m.