R/anyBars.R

In AnGabrio/missingHE: Missing Outcome Data in Health Economic Evaluation

#' An internal function to detect the random effects component from an object of class formula
#' 
#' @keywords random effects models
#' @param term formula to be processed
#' @examples
#' #Internal function only
#' #no examples
#' #
#' #

anyBars <- function(term) {
  any(c('|','||') %in% all.names(term))
}