Function to determine whether an object x is an edist object.

is_edist(x)

Arguments

x

The object to test

Value

Logical; TRUE if x is an edist.

Examples

is_edist(normal(0, 1) * exponential(1))  # TRUE
#> [1] TRUE
is_edist(normal(0, 1))                   # FALSE
#> [1] FALSE