R: Is the input the empty model?

assert_is_empty_model {assertive.models}

R Documentation

Is the input the empty model?

Description

Checks to see if the input is the empty model.

Usage

assert_is_empty_model(x, severity = getOption("assertive.severity", "stop"))

assert_is_non_empty_model(x, severity = getOption("assertive.severity",
  "stop"))

is_empty_model(x, .xname = get_name_in_parent(x))

is_non_empty_model(x, .xname = get_name_in_parent(x))

Arguments

`x`	Input to check.
`severity`	How severe should the consequences of the assertion be? Either `"stop"`, `"warning"`, `"message"`, or `"none"`.
`.xname`	Not intended to be used directly.

Value

is_[non_]empty_model returns TRUE if the input is an [non] empty model. (has_terms is used to determine that a variable is a model object.) The model is considered empty if there are no factors and no intercept. The assert_* functions return nothing but throw an error if the corresponding is_* function returns FALSE.

Examples

assert_is_empty_model(lm(uptake ~ 0, CO2))
assert_is_non_empty_model(lm(uptake ~ conc, CO2))
assert_is_non_empty_model(lm(uptake ~ 1, CO2))