tests/testthat/test-misc.R

test_that("adjust_dist works", {
  D <- matrix(c(0,1,1,Inf,Inf,
                1,0,1,Inf,Inf,
                1,1,0,Inf,Inf,
                Inf,Inf,Inf,0,1,
                Inf,Inf,Inf,1,0),5,5,byrow=TRUE)
  Dlist <- list(D,D)
  expect_no_error(adjust_dist(Dlist))
})

Try the graphlayouts package in your browser

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

graphlayouts documentation built on Nov. 4, 2023, 1:08 a.m.