tests/testthat/test-diag_kernel.R

context("diag_kernel")

test_that("helper example", {
  dk <- diag_kernel(object.rownames = rownames(M)[-1], Gmat.rownames = rownames(G))
  expect_equal(as.matrix(dk), diag(3))
  expect_equal(dimnames(dk), list(letters[2:4], letters[2:4]))
})
jdreyf/PANTS documentation built on July 18, 2019, 10:12 a.m.