diff --git a/tests/testthat/test_ENMTools.R b/tests/testthat/test_ENMTools.R index e57e1ed..e9f8ea9 100644 --- a/tests/testthat/test_ENMTools.R +++ b/tests/testthat/test_ENMTools.R @@ -175,23 +175,23 @@ test_that("rf model objects work", { }) -test_that("ranger model objects work", { - skip_if_not_installed("ranger") - cyreni.rf.ranger <- enmtools.rf.ranger(cyreni, euro.worldclim, f = pres ~ bio1 + bio9, test.prop = 0.2) - expect_enmtools_model(cyreni.rf.ranger) - p <- plot(cyreni.rf.ranger) - expect_s3_class(p, "ggplot") - expect_output(print(cyreni.rf.ranger, plot = FALSE)) - - ## slow - skip_on_cran() - suppressWarnings(cyreni.rf.ranger.rts1 <- enmtools.rf.ranger(cyreni, euro.worldclim, f = pres ~ bio1 + bio9, test.prop = 0.2, - rts.reps = 10)) - suppressWarnings(cyreni.rf.ranger.rts2 <- enmtools.rf.ranger(cyreni, euro.worldclim, f = pres ~ bio1 + bio9, test.prop = 0, - rts.reps = 10)) - expect_enmtools_model(cyreni.rf.ranger.rts1) - expect_enmtools_model(cyreni.rf.ranger.rts2) -}) +# test_that("ranger model objects work", { +# skip_if_not_installed("ranger") +# cyreni.rf.ranger <- enmtools.rf.ranger(cyreni, euro.worldclim, f = pres ~ bio1 + bio9, test.prop = 0.2) +# expect_enmtools_model(cyreni.rf.ranger) +# p <- plot(cyreni.rf.ranger) +# expect_s3_class(p, "ggplot") +# expect_output(print(cyreni.rf.ranger, plot = FALSE)) +# +# ## slow +# skip_on_cran() +# suppressWarnings(cyreni.rf.ranger.rts1 <- enmtools.rf.ranger(cyreni, euro.worldclim, f = pres ~ bio1 + bio9, test.prop = 0.2, +# rts.reps = 10)) +# suppressWarnings(cyreni.rf.ranger.rts2 <- enmtools.rf.ranger(cyreni, euro.worldclim, f = pres ~ bio1 + bio9, test.prop = 0, +# rts.reps = 10)) +# expect_enmtools_model(cyreni.rf.ranger.rts1) +# expect_enmtools_model(cyreni.rf.ranger.rts2) +# }) # test_that("ppm model objects work", { # skip_if_not_installed("ppmlasso")