Run examples in seq

Critical-Infrastructure-Systems-Lab · Apr 21, 2020 · e030216 · e030216
1 parent 1fe8373
commit e030216
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/man/LDS_reconstruction.Rd b/man/LDS_reconstruction.Rd
diff --git a/man/cvLDS.Rd b/man/cvLDS.Rd
diff --git a/tests/testthat/test-non-standard-calls.R b/tests/testthat/test-non-standard-calls.R
@@ -1,11 +1,11 @@
 context('non-standard EM')
 
-u <- v <- t(NPpc)
+u <- v <- t(NPpc[601:813])
 
 .runThisTest <- Sys.getenv("RunAllTests") == "yes"
 
 if (.runThisTest) {
   test_that('Return-raw = TRUE works', {
-    expect_is(LDS_reconstruction(NPannual, u, v, start.year = 1200, num.restarts = 2, return.raw = TRUE), "list")
+    expect_is(LDS_reconstruction(NPannual, u, v, start.year = 1800, num.restarts = 2, return.raw = TRUE), "list")
   })
 }