R/utils.R

Defines functions is_fct_custom_contrast `%||%`

`%||%` <- function(lhs, rhs) if (is.null(lhs)) rhs else lhs

is_fct_custom_contrast <- function(x) {
  is.factor(x) && !is.null(attr(x, "contrasts"))
}

Try the jlme package in your browser

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

jlme documentation built on April 3, 2025, 10:29 p.m.