tests/testthat/test_bandmat.R

In magi: MAnifold-Constrained Gaussian Process Inference

testthat::context("band matrix likelihood")
testthat::test_that("band matrix likelihood runs without error", {
  out <- magi:::bandTest(system.file("testdata/data_band.txt",package="magi"))
  testthat::expect_equal(out, -655203.16255410481244, tolerance = 1e-3)
})