tests/testthat/test_net.kernel.R

test_that("net.kernel()", {
  data(litG)
  litG <- igraph.from.graphNEL(litG)
  sg <- decompose(litG, min.vertices = 50)
  sg <- sg[[1]]
  K <- net.kernel(sg)
  expect_is(K, "matrix")
  
  n <- dim(K)[1]
  expect_equal(n, length(diag(K)))
})

Try the PPInfer package in your browser

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

PPInfer documentation built on Nov. 1, 2018, 2:10 a.m.