tests/testthat/test_sl.R

In cbg-ethz/SubGroupSeparation: Inference in Bayesian Networks

library(SGS)

net <- randomBN(10)

dag <- dag(net)
s <- sapply(1:num.nodes(net), function(x) {
  parents <- which(dag[,x] > 0)
  prod(node.sizes(net)[parents])
})

test_that("sum of cpts", {
  expect_equal(sum(unlist(cpts(net))), sum(s))
})