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

is_empirical_dist(x)

Arguments

x

The object to test

Value

Logical; TRUE if x is an empirical_dist.

Examples

ed <- empirical_dist(c(1, 2, 3))
is_empirical_dist(ed)    # TRUE
#> [1] TRUE
is_empirical_dist("abc") # FALSE
#> [1] FALSE