x is an empirical_dist object.R/empirical_dist.R
is_empirical_dist.RdFunction to determine whether an object x is an empirical_dist object.
is_empirical_dist(x)Logical; TRUE if x is an empirical_dist.
ed <- empirical_dist(c(1, 2, 3))
is_empirical_dist(ed) # TRUE
#> [1] TRUE
is_empirical_dist("abc") # FALSE
#> [1] FALSE