tests/test_coercion.R

# Tests for coercion functions.

library(pcalg)

# Tests for coercion functions of EssGraph objects.
set.seed(123)

for (i in 1:10) {
  # Test that a CPDAG can be coerced to an EssGraph object and back.
  dag <- randomDAG(10, 0.3)
  cpdag <- dag2cpdag(dag)
  essgraph <- as(cpdag, "EssGraph")
  cpdag2 <- as(essgraph, "graphNEL")

  if (!all.equal(cpdag, cpdag2)) {
    stop("Original and coerced CPDAG are not equal.")
  }
}

Try the pcalg package in your browser

Any scripts or data that you put into this service are public.

pcalg documentation built on May 29, 2024, 5:24 a.m.