tests/testthat/test_chgedg.R

In rje42/MixedGraphs: Mixed Graphs and Graphical Models

g0 <- graphCr("1,2,3")
dag1 <- graphCr("1 -> 4 <- 2 -> 3 -> 5 <- 4")
dists <- districts(dag1)
dag1a <- mixedgraph(5, edges=list(dir=adjMatrix(dag1$edges$directed,dir=TRUE)))
dag2 <- dag1[c(2,3,5)]
grv <- graphCr("1->2->3->4<->2", mode="adjList")
grv_a <- graphCr("1->2->3->4<->2", mode="adjMatrix")
grv_b <- graphCr("1 -> 2 -> 3 -> 4 <-> 2", mode="edgeMatrix")
grv_c <- graphCr("1 -> 2 -> 3 -> 4 <-> 2", mode="eList")
grv2 <- graphCr("z -> x -> y <- u -> x")

mag1 <- graphCr("1 -> 3 <-> 2 <-> 4 <- 1")
mag1a <- graphCr("1 -> 3 <-> 2 <-> 4 <- 1", mode = "adjMatrix")
mag1b <- graphCr("1 -> 3 <-> 2 <-> 4 <- 1", mode = "edgeMatrix")
mag1c <- graphCr("1 -> 3 <-> 2 <-> 4 <- 1", mode = "eList")

grv_a0 <- withAdjList(grv_a)
grv_b0 <- withAdjList(grv_b, "bidirected")
grv_c0 <- withAdjList(grv_c)

g0u <- withAdjList(g0, "undirected", force=TRUE)
g0u2 <- withEdgeList(g0, "undirected", force=TRUE)

testthat::test_that("withAdjList works sensibly", {
  expect_equal(standardizeEdges(grv), standardizeEdges(grv_a0))
  expect_equal(standardizeEdges(grv), standardizeEdges(grv_b0))
  expect_equal(standardizeEdges(grv), standardizeEdges(grv_c0))
})

testthat::test_that("graphCr works sensibly", {
  expect_equal(standardizeEdges(mag1), standardizeEdges(mag1a))
  expect_equal(standardizeEdges(mag1), standardizeEdges(mag1b))
  expect_equal(standardizeEdges(mag1), standardizeEdges(mag1c))
})


testthat::test_that("withAdjList works sensibly when no edges present", {
  expect_equal(standardizeEdges(g0u), standardizeEdges(g0u2))
})