tests/testthat/test_spearkarb.r
In ABS-dev/skrmdb: Package to estimate ED50
context("SpearKarb")
#All Good
test_that("examples work", {
y <- c(0, 1, 2, 3, 4)
n <- c(4, 4, 4, 4, 4)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 3,
var = 0.2083333)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotinicity
test_that("examples work", {
y <- c(0, 1, 2, 1, 4)
n <- c(4, 4, 4, 4, 4)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 3.5,
var = 0.2083333)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# uneven
test_that("examples work", {
y <- c(0, 2, 3, 4)
n <- c(4, 4, 4, 4)
x <- c(1, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 3,
var = 0.25)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# bracket
test_that("examples work", {
y <- c(0, 1, 2, 3, 4)
n <- c(8, 8, 8, 8, 8)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.25,
var = 0.1116071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(4, 5, 6, 7, 8)
n <- c(8, 8, 8, 8, 8)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 1.75,
var = 0.1116071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotincity + reversed
test_that("examples work", {
y <- c(4, 1, 2, 1, 0)
n <- c(4, 4, 4, 4, 4)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 2.5,
var = 0.2083333)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# bracket + uneven
test_that("examples work", {
y <- c(0, 1, 2, 4)
n <- c(8, 8, 8, 8)
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.5,
var = 0.21875)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(4, 5, 6, 8)
n <- c(8, 8, 8, 8)
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 1.75,
var = 0.1294643)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotinicity + bracket
test_that("examples work", {
y <- c(0, 1, 2, 1, 4)
n <- c(8, 8, 8, 8, 8)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.5,
var = 0.09375)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# + reversed
test_that("examples work", {
y <- c(4, 1, 2, 1, 0) + 4
n <- c(8, 8, 8, 8, 8)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4,
var = 0.1294643)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotinicity + uneven
test_that("examples work", {
y <- c(0, 2, 1, 4)
n <- c(4, 4, 4, 4)
x <- c(1, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 3.5,
var = 0.25)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# + reversed
test_that("examples work", {
y <- c(4, 1, 2, 0)
n <- c(4, 4, 4, 4)
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 2.5,
var = 0.25)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotinicity + uneven + bracket
test_that("examples work", {
y <- c(0, 2, 1, 4)
n <- c(4, 4, 4, 4) + 4
x <- c(1, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.5,
var = 0.1116071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(4, 1, 2, 0)
n <- c(4, 4, 4, 4) + 4
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 1.5,
var = 0.1116071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(0, 2, 1, 4) + 4
n <- c(4, 4, 4, 4) + 4
x <- c(1, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 1.75,
var = 0.2366071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(4, 1, 2, 0) + 4
n <- c(4, 4, 4, 4) + 4
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.25,
var = 0.2366071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
ABS-dev/skrmdb documentation built on April 21, 2024, 5:58 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("SpearKarb")
#All Good
test_that("examples work", {
y <- c(0, 1, 2, 3, 4)
n <- c(4, 4, 4, 4, 4)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 3,
var = 0.2083333)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotinicity
test_that("examples work", {
y <- c(0, 1, 2, 1, 4)
n <- c(4, 4, 4, 4, 4)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 3.5,
var = 0.2083333)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# uneven
test_that("examples work", {
y <- c(0, 2, 3, 4)
n <- c(4, 4, 4, 4)
x <- c(1, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 3,
var = 0.25)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# bracket
test_that("examples work", {
y <- c(0, 1, 2, 3, 4)
n <- c(8, 8, 8, 8, 8)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.25,
var = 0.1116071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(4, 5, 6, 7, 8)
n <- c(8, 8, 8, 8, 8)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 1.75,
var = 0.1116071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotincity + reversed
test_that("examples work", {
y <- c(4, 1, 2, 1, 0)
n <- c(4, 4, 4, 4, 4)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 2.5,
var = 0.2083333)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# bracket + uneven
test_that("examples work", {
y <- c(0, 1, 2, 4)
n <- c(8, 8, 8, 8)
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.5,
var = 0.21875)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(4, 5, 6, 8)
n <- c(8, 8, 8, 8)
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 1.75,
var = 0.1294643)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotinicity + bracket
test_that("examples work", {
y <- c(0, 1, 2, 1, 4)
n <- c(8, 8, 8, 8, 8)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.5,
var = 0.09375)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# + reversed
test_that("examples work", {
y <- c(4, 1, 2, 1, 0) + 4
n <- c(8, 8, 8, 8, 8)
x <- c(1, 2, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4,
var = 0.1294643)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotinicity + uneven
test_that("examples work", {
y <- c(0, 2, 1, 4)
n <- c(4, 4, 4, 4)
x <- c(1, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 3.5,
var = 0.25)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# + reversed
test_that("examples work", {
y <- c(4, 1, 2, 0)
n <- c(4, 4, 4, 4)
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 2.5,
var = 0.25)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
# monotinicity + uneven + bracket
test_that("examples work", {
y <- c(0, 2, 1, 4)
n <- c(4, 4, 4, 4) + 4
x <- c(1, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.5,
var = 0.1116071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(4, 1, 2, 0)
n <- c(4, 4, 4, 4) + 4
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 1.5,
var = 0.1116071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(0, 2, 1, 4) + 4
n <- c(4, 4, 4, 4) + 4
x <- c(1, 3, 4, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 1.75,
var = 0.2366071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
test_that("examples work", {
y <- c(4, 1, 2, 0) + 4
n <- c(4, 4, 4, 4) + 4
x <- c(1, 2, 3, 5)
dt <- data.frame(dead = y, total = n, dil = x)
resa <- suppressWarnings(SpearKarb(y = y, x = x, n = n))
resb <- SpearKarb(y + n ~ x)
resc <- SpearKarb(dead + total ~ dil, dt)
res <- list(eval = "Spearman-Karber",
ed = 4.25,
var = 0.2366071)
expect_s3_class(resa, "skrmdb")
expect_s3_class(resb, "skrmdb")
expect_s3_class(resc, "skrmdb")
expect_identical(resa$eval, res$eval)
expect_identical(resb$eval, res$eval)
expect_identical(resc$eval, res$eval)
expect_equal(resa$ed, res$ed, tolerance = 0.0001)
expect_equal(resb$ed, res$ed, tolerance = 0.0001)
expect_equal(resc$ed, res$ed, tolerance = 0.0001)
expect_equal(resa$var, res$var, tolerance = 0.0001)
expect_equal(resb$var, res$var, tolerance = 0.0001)
expect_equal(resc$var, res$var, tolerance = 0.0001)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.