r - 使用 bnlearn 包从贝叶斯网络中删除节点

Question

我用bnlearn构建了一个网络，但是有一些节点没有到另一个节点的边，所以我想删除它们。是否有从 bn 对象中删除特定节点的命令？

Answer 1

bnlearn 内置 arc operations (文档也 here )就是为此而设计的。这些函数还具有检查图中循环的优点，因为贝叶斯网络需要是非循环的(有向非循环图或 DAG)，否则您会得到无限循环并且无法计算条件概率。还有一个 check.illegal 参数，用于在添加弧时检查模型是否存在其他违规情况(请参阅文档)。

但是，他们的例子并不好，文档也不是很好。这些操作返回一个模型，因此您必须用返回的模型覆盖旧模型。

data(learning.test)
# model ends up the same every time here, but may want
# to set random seed for reproducibility in other cases
set.seed(42)
model = tabu(learning.test)  # tabu is a better algo than hc I think
plot(model)

model <- set.arc(model, "A", "F")
plot(model)
model <- drop.arc(model, "A", "F")
plot(model)

set.edge 设置无向边，而 set.arc 设置有向边。