Nothing
################################################################################
# Standard negatives
test_that("Typical results for negatives are returned as negatives", {
# Low
expect_that(tspot.criteria.oxford.global(data.frame(nil = 1,
panel.a = 1,
panel.b = 1,
mito = 20)),
matches("Negative")
)
# Just below positive - Panel A
expect_that(tspot.criteria.oxford.global(data.frame(nil = 1,
panel.a = 6,
panel.b = 1,
mito = 20)),
matches("Negative")
)
# Just below positive - Panel B
expect_that(tspot.criteria.oxford.global(data.frame(nil = 1,
panel.a = 1,
panel.b = 6,
mito = 20)),
matches("Negative")
)
# Slightly higher
expect_that(tspot.criteria.oxford.global(data.frame(nil = 5,
panel.a = 10,
panel.b = 10,
mito = 20)),
matches("Negative")
)
# Nil can be higher than TB
expect_that(tspot.criteria.oxford.global(data.frame(nil = 8,
panel.a = 1,
panel.b = 1,
mito = 20)),
matches("Negative")
)
})
################################################################################
# Standard positives
test_that("Typical results for positives are returned as positives", {
# Low edge of positive - Panel A
expect_that(tspot.criteria.oxford.global(data.frame(nil = 1,
panel.a = 7,
panel.b = 6,
mito = 20)),
matches("Positive")
)
# Low edge of positive - Panel B
expect_that(tspot.criteria.oxford.global(data.frame(nil = 1,
panel.a = 6,
panel.b = 7,
mito = 20)),
matches("Positive")
)
# Slightly higher - Panel A
expect_that(tspot.criteria.oxford.global(data.frame(nil = 5,
panel.a = 16,
panel.b = 6,
mito = 20)),
matches("Positive")
)
# Slightly higher - Panel B
expect_that(tspot.criteria.oxford.global(data.frame(nil = 5,
panel.a = 6,
panel.b = 16,
mito = 20)),
matches("Positive")
)
# Even when mito < 20
expect_that(tspot.criteria.oxford.global(data.frame(nil = 5,
panel.a = 6,
panel.b = 16,
mito = 10)),
matches("Positive")
)
})
################################################################################
# Invalid - high nil
test_that("Typical results for high-nil invalids are returned as high-nil invalids", {
# Nil over 10, everything else standard
expect_that(tspot.criteria.oxford.global(data.frame(nil = 11,
panel.a = 1,
panel.b = 1,
mito = 20)),
matches("Invalid - high nil")
)
# Takes precedence over low mitogen
expect_that(tspot.criteria.oxford.global(data.frame(nil = 11,
panel.a = 1,
panel.b = 1,
mito = 10)),
matches("Invalid - high nil")
)
})
################################################################################
# Invalid - low mito
test_that("Typical results for low-mito invalids are returned as low-mito invalids", {
# Very low
expect_that(tspot.criteria.oxford.global(data.frame(nil = 1,
panel.a = 1,
panel.b = 1,
mito = 10)),
matches("Invalid - low mitogen")
)
# At the threshold
expect_that(tspot.criteria.oxford.global(data.frame(nil = 1,
panel.a = 1,
panel.b = 1,
mito = 19)),
matches("Invalid - low mitogen")
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.