Test whether an object is a dfr_dist_series

Returns TRUE if x inherits from "dfr_dist_series", FALSE otherwise.

Usage

is_dfr_dist_series(x)

Arguments

x

Object to test.

Value

Logical scalar.

Details

Since dfr_dist_series inherits from dfr_dist, an object that passes is_dfr_dist_series() will also pass is_dfr_dist(). Use this function when you need to distinguish series systems from ordinary dfr_dist objects.

See also

dfr_dist_series for the constructor, is_dfr_dist for the parent class predicate

Other series system: assumptions.dfr_dist_series(), dfr_dist_series(), print.dfr_dist_series()

Examples

# \donttest{
library(flexhaz)

sys <- dfr_dist_series(list(
    dfr_exponential(0.1),
    dfr_exponential(0.2)
))
is_dfr_dist_series(sys)  # TRUE
#> [1] TRUE
is_dfr_dist(sys)         # also TRUE (inherits dfr_dist)
#> [1] TRUE

single <- dfr_exponential(0.5)
is_dfr_dist_series(single)  # FALSE
#> [1] FALSE
is_dfr_dist(single)         # TRUE
#> [1] TRUE

is_dfr_dist_series(42)  # FALSE
#> [1] FALSE
# }