我一直在尝试自学网络分析，并且已经能够在 R 中开发 DAG 图表。但是，我已经浏览了三四个 R 包，并且几乎没有看到生成联合函数的方式网络的概率。DAG 图告诉我变量之间的关系，但我对概率更好奇，并且没有找到在 R 中做到这一点的方法。如果有的话，似乎有很多包专门用于生成情节或专注于推理，我想知道如何获得网络的概率。

library("bnlearn")
library("Rgraphviz")

dat=data.frame(won=c(1,0,0,1,0,0), sold=c(0,0,0,1,0,0), insured=c(0,0,1,0,0,1), 
               credit=c("POOR","FAIR","GOOD","FAIR","FAIR","GOOD"))
dat$won = factor(dat$won)
dat$sold = factor(dat$sold)
dat$insured = factor(dat$insured)
dat$credit = factor(dat$credit) 

highlight.opts <- list(nodes = c("won","sold","insured","credit"),
                       col = "red", fill = "grey")
bn.hc <- hc(dat, score = "aic")
graphviz.plot(bn.hc, highlight=highlight.opts)