R/summary.R

Defines functions summary.i_labelled

#' @export
summary.i_labelled <- function(object, ...){
  if(!is.null(attr(object, "labels", TRUE))){
    summary(i_as_factor(object))
  }else{
    summary(as.numeric(object))
  }
}

Try the ilabelled package in your browser

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

ilabelled documentation built on April 3, 2025, 10:38 p.m.