tests/testthat/test_get_incremental_avg_matrix.R

test_that("get_incremental_avg_matrix returns the correct matrix", {
  B0 <- stochasticreserver::B0
  A0 <- stochasticreserver::A0
  expect_equal(get_incremental_avg_matrix(B0), A0)
})
rmsharp/stochasticreserver documentation built on Nov. 5, 2019, 3:13 a.m.