diff options
Diffstat (limited to 'tests/testthat/test_occuMulti.R')
| -rw-r--r-- | tests/testthat/test_occuMulti.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_occuMulti.R b/tests/testthat/test_occuMulti.R index 6ce7921..bcd1949 100644 --- a/tests/testthat/test_occuMulti.R +++ b/tests/testthat/test_occuMulti.R @@ -229,7 +229,7 @@ test_that("occuMulti predict method works",{ nul <- capture.output(prState <- predict(fm, type='state')) expect_equivalent(sapply(prState,function(x) x[1,1]), - c(0.30807707,0.20007250,0.04234835,0.73106618),tol=1e-4) + c(0.30807707,0.19287755,0.04734032,0.76785951),tol=1e-4) nul <- capture.output(prDet <- predict(fm, type='det')) expect_equivalent(as.numeric(prDet$sp2[1,]), c(0.190485,0.12201,0.0475270,0.525988), tol=1e-4) @@ -257,7 +257,7 @@ test_that("occuMulti predict method works",{ nul <- capture.output(prState <- predict(fm, type='state')) expect_equivalent(sapply(prState,function(x) x[1,1]), - c(0.475928,0.2548407,0.01496681,0.86713789),tol=1e-4) + c(0.475928,0.25311741,0.01468389,0.85687218),tol=1e-4) nul <- capture.output(prDet <- predict(fm, type='det')) expect_equivalent(as.numeric(prDet$sp2[1,]), c(0.20494,0.11865,0.0582563,0.517888), tol=1e-4) |