tests/testthat/test-diffuse.R

In toporanga: Topological Sort-Based Hierarchy Inference

test_that("blending works",{
  tally_log(1:3,2:4)->a
  expect_identical(
    matrix_tally(diffuse(a,blend=0)),
    matrix_tally(a))
  expect_identical(diffuse(a,blend=1),diffuse(a))
  expect_identical(
    as.numeric(matrix_tally(diffuse(a,blend=0.7))),
    c(0,1,0.7,0.7,0,0,1,0.7,0,0,0,1,0,0,0,0)
  )
})