Drops the given variables from kn$vars, and automatically removes
any edges that mention them.
See also
Other knowledge helpers:
+.Knowledge(),
add_exogenous(),
add_tier(),
add_to_tier(),
add_vars(),
as_bnlearn_knowledge(),
as_pcalg_constraints(),
as_tetrad_knowledge(),
convert_tiers_to_forbidden(),
deparse_knowledge(),
forbid_edge(),
get_tiers(),
knowledge(),
knowledge_to_caugi(),
remove_edge(),
remove_tiers(),
reorder_tiers(),
reposition_tier(),
require_edge(),
seq_tiers(),
set_knowledge(),
unfreeze()
Examples
# remove variables and their incident edges
data(tpc_example)
kn <- knowledge(
head(tpc_example),
tier(
child ~ starts_with("child"),
youth ~ starts_with("youth"),
oldage ~ starts_with("old")
),
child_x1 %-->% youth_x3
)
print(kn)
#> <Knowledge: 3 tiers | 6 vars | 1 required>
#> tier(child): child_x1, child_x2
#> tier(youth): youth_x3, youth_x4
#> tier(oldage): oldage_x5, oldage_x6
#> required:
#> child_x1-->youth_x3
kn <- remove_edge(kn, child_x1, youth_x3)
print(kn)
#> <Knowledge: 3 tiers | 6 vars>
#> tier(child): child_x1, child_x2
#> tier(youth): youth_x3, youth_x4
#> tier(oldage): oldage_x5, oldage_x6
kn <- remove_vars(kn, starts_with("child_"))
print(kn)
#> <Knowledge: 3 tiers | 4 vars>
#> tier(youth): youth_x3, youth_x4
#> tier(oldage): oldage_x5, oldage_x6
kn <- remove_tiers(kn, "child")
print(kn)
#> <Knowledge: 2 tiers | 4 vars>
#> tier(youth): youth_x3, youth_x4
#> tier(oldage): oldage_x5, oldage_x6
