Convert Tiered Knowledge to Forbidden Knowledge

Converts tier assignments into forbidden edges, and drops tiers in the output.

Usage

convert_tiers_to_forbidden(kn)

Arguments

kn

A Knowledge object.

Value

A Knowledge object with forbidden edges added, tiers removed.

See also

Other knowledge helpers: +.Knowledge(), add_exogenous(), add_tier(), add_to_tier(), add_vars(), as_bnlearn_knowledge(), as_pcalg_constraints(), as_tetrad_knowledge(), deparse_knowledge(), forbid_edge(), get_tiers(), knowledge(), knowledge_to_caugi(), remove_edge(), remove_tiers(), remove_vars(), reorder_tiers(), reposition_tier(), require_edge(), seq_tiers(), set_knowledge(), unfreeze()

Examples

kn <- knowledge(
 tpc_example,
 tier(
  child ~ starts_with("child"),
  youth ~ starts_with("youth"),
  old ~ starts_with("old")
 )
)
kn_converted <- convert_tiers_to_forbidden(kn)
print(kn_converted)
#> <Knowledge: 6 vars | 12 forbidden>
#>   vars: child_x1, child_x2, youth_x3, youth_x4, oldage_x5, oldage_x6
#>   forbidden:
#>     oldage_x5!-->child_x1 + child_x2 + youth_x3 + youth_x4
#>     oldage_x6!-->child_x1 + child_x2 + youth_x3 + youth_x4
#>     youth_x3!-->child_x1 + child_x2
#>     youth_x4!-->child_x1 + child_x2
plot(kn_converted)