tests/testthat/test-split_graph.R

In gdim: Estimate Graph Dimension using Cross-Validated Eigenvalues

test_that("multiplication works", {

  set.seed(17)

  M <- rsparsematrix(8, 12, nnz = 30, rand.x = NULL)

  graph_parts <- split_graph(M)

  expect_equal(
    graph_parts$train + graph_parts$test,
    methods::as(M, "dMatrix")
  )
})