tests/testthat/test-get_edge_multip_seq.R

test_that("get_edge_multip_seq works", {
  A <-  matrix(c(0, 1, 2,
                 1, 2, 1,
                 2, 1, 2), nrow=3, ncol=3)
  deg <- get_degree_seq(A, 'multigraph')
  expect_equal(dim(get_edge_multip_seq(deg)),c(12,6))
})

Try the multigraphr package in your browser

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

multigraphr documentation built on May 29, 2024, 5:52 a.m.