diff options
Diffstat (limited to 'tests/testthat/test_occuMS.R')
| -rw-r--r-- | tests/testthat/test_occuMS.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/testthat/test_occuMS.R b/tests/testthat/test_occuMS.R index 2455373..7f46285 100644 --- a/tests/testthat/test_occuMS.R +++ b/tests/testthat/test_occuMS.R @@ -155,7 +155,7 @@ test_that("occuMS can fit the multinomial model",{ #Check bootstrapped error for predict expect_equivalent(as.numeric(pr[[1]][1,]), - c(0.2292279,0.1122459,0.07926078,0.5321636), tol=1e-4) + c(0.2292279,0.11235796,0.08024297,0.45486279), tol=1e-4) #det nul <- capture.output(pr <- predict(fit_C, "det")) @@ -165,7 +165,7 @@ test_that("occuMS can fit the multinomial model",{ expect_equal(names(pr),c('p[11]','p[12]','p[22]')) expect_equivalent(as.numeric(pr[[1]][1,]), - c(0.285455,0.069013,0.168485,0.4447024), tol=1e-4) + c(0.285455,0.07441389,0.18922129,0.48677813), tol=1e-4) #with new data (some missing) newdata <- data.frame(oc1=rnorm(5),oc2=rnorm(5)) @@ -174,7 +174,7 @@ test_that("occuMS can fit the multinomial model",{ expect_true(is.na(pr[[1]][1,1])) expect_equivalent(nrow(pr[[1]]), nrow(newdata)) expect_equivalent(as.numeric(pr[[1]][2,]), - c(0.343157,0.0703713,0.222039,0.488455),tol=1e-4) + c(0.343157,0.07801936,0.20967511,0.49916983),tol=1e-4) newdata <- data.frame(sc1=rnorm(5),sc2=rnorm(5)) newdata[1,1] <- NA |