Test if an object is a kofn model
Examples
is_kofn(kofn(k = 3, m = 3, component = dfr_exponential()))
#> Error in dfr_exponential(): could not find function "dfr_exponential"
is_kofn(42)
#> [1] FALSE
Test if an object is a kofn model
is_kofn(kofn(k = 3, m = 3, component = dfr_exponential()))
#> Error in dfr_exponential(): could not find function "dfr_exponential"
is_kofn(42)
#> [1] FALSE