context("summary.zoonWorkflow")
test_that("summary.zoonWorkflow tests", {
skip_on_cran()
set.seed(1)
expect_is(
summary(workflow(
occurrence = UKAnophelesPlumbeus,
covariate = UKAir,
process = Background(n = 70),
model = LogisticRegression,
output = SameTimePlaceMap
)),
class = "character"
)
set.seed(1)
expect_is(
summary(workflow(
occurrence = UKAnophelesPlumbeus,
covariate = Chain(UKAir, UKAir, UKAir, UKAir, UKAir, UKAir),
process = Background(n = 70),
model = LogisticRegression,
output = SameTimePlaceMap
)),
class = "character"
)
set.seed(1)
expect_is(
summary(workflow(
occurrence = UKAnophelesPlumbeus,
covariate = list(UKAir, UKAir),
process = Background(n = 70),
model = LogisticRegression,
output = SameTimePlaceMap
)),
class = "character"
)
set.seed(1)
expect_is(
summary(workflow(
occurrence = UKAnophelesPlumbeus,
covariate = UKAir,
process = Background(n = 70),
model = LogisticRegression,
output = SameTimePlaceMap
)),
class = "character"
)
set.seed(1)
expect_is(
summary(workflow(
occurrence = UKAnophelesPlumbeus,
covariate = UKAir,
process = list(Background(n = 70), NoProcess),
model = LogisticRegression,
output = SameTimePlaceMap
)),
class = "character"
)
set.seed(1)
expect_is(
summary(workflow(
occurrence = UKAnophelesPlumbeus,
covariate = UKAir,
process = Background(n = 70),
model = list(Domain, LogisticRegression),
output = SameTimePlaceMap
)),
class = "character"
)
suppressWarnings({SDMTools_check <- requireNamespace('SDMTools', quietly = TRUE)})
if(!SDMTools_check) skip(message = 'SDMTools required for some tests')
set.seed(1)
expect_is(
summary(workflow(
occurrence = UKAnophelesPlumbeus,
covariate = UKAir,
process = BackgroundAndCrossvalid,
model = Domain,
output = list(
SameTimePlaceMap,
PerformanceMeasures
)
)),
class = "character"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.