tests/manual/old_stuff_delete_soon/test_01_runMSE_testOM.R

testthat::context("runMSE with testOM")

testthat::test_that("runMSE works with testOM", {
  OM <- testOM 
  OM@nsim <- 6
  testthat::expect_is(runMSE(OM, silent=TRUE), "MSE")
})

testthat::test_that("runMSE works with testOM - parallel", {
  OM <- testOM 
  OM@nsim <- 96
  DLMtool::setup()
  testthat::expect_is(runMSE(OM, silent=TRUE, parallel = TRUE), "MSE")
})

  
testthat::test_that("runMSE works with testOM - interval = 1", {
  OM <- testOM 
  OM@nsim <- 6
  OM@interval <- 1 
  testthat::expect_is(runMSE(OM, silent=TRUE), "MSE")
})
  
DLMtool/DLMtool documentation built on June 20, 2021, 5:20 p.m.