R/utils.is.feR.object.R

In feranpre/feR: Basic functions that I use all the time

#' @export
is.feR.object <- function(x) {
  feR.class <- c("feR_desc_num","feR_describe_factor",
                 "feR_comp_prop","feR.comp_means")
  return(any(class(x) %in% feR.class))
}