diff options
Diffstat (limited to 'tests/testthat/test_gdistsamp.R')
| -rw-r--r-- | tests/testthat/test_gdistsamp.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/testthat/test_gdistsamp.R b/tests/testthat/test_gdistsamp.R index 1b232b2..e385566 100644 --- a/tests/testthat/test_gdistsamp.R +++ b/tests/testthat/test_gdistsamp.R @@ -351,7 +351,7 @@ test_that("gdistsamp with exp keyfunction works",{ keyfun="exp",engine="C", control=list(maxit=1)) fm_R <- gdistsamp(~par1, ~par2, ~par3, umf, output="density", se=FALSE, keyfun="exp",engine="R", control=list(maxit=1)) - expect_equal(fm_C@AIC, fm_R@AIC) + expect_equal(coef(fm_C), coef(fm_R)) #fm_R <- gdistsamp(~par1, ~par2, ~par3, umf, output="density", se=FALSE, # keyfun="exp",engine="R") @@ -390,7 +390,7 @@ test_that("gdistsamp with exp keyfunction works",{ keyfun="exp",engine="C", se=F,control=list(maxit=1)) fm_R <- gdistsamp(~elevation, ~1, ~chaparral, jayumf, output='density', keyfun="exp",engine="R", se=F, control=list(maxit=1)) - expect_equal(fm_C@AIC, fm_R@AIC, tol=1e-5) + expect_equal(coef(fm_C), coef(fm_R), tol=1e-5) }) @@ -439,7 +439,7 @@ test_that("gdistsamp with hazard keyfunction works",{ keyfun="hazard",engine="C", control=list(maxit=1)) fm_R <- gdistsamp(~par1, ~par2, ~par3, umf, output="density", se=FALSE, keyfun="hazard",engine="R", control=list(maxit=1)) - expect_equal(fm_C@AIC, fm_R@AIC, tol=1e-5) + expect_equal(coef(fm_C), coef(fm_R), tol=1e-5) #fm_R <- gdistsamp(~par1, ~par2, ~par3, umf, output="density", se=FALSE, # keyfun="hazard",engine="R") @@ -478,7 +478,7 @@ test_that("gdistsamp with hazard keyfunction works",{ keyfun="hazard",engine="C", se=F,control=list(maxit=1)) fm_R <- gdistsamp(~elevation, ~1, ~chaparral, jayumf, output='density', keyfun="hazard",engine="R", se=F, control=list(maxit=1)) - expect_equal(fm_C@AIC, fm_R@AIC, tol=1e-3) + expect_equal(coef(fm_C), coef(fm_R), tol=1e-2) # why are these slightly different? }) test_that("predict works for gdistsamp",{ |