tests/testthat/test-zcurve.R

In R4EPI/msfmisc: Miscellaneous helper tools for epidemiologists

context("zcurve tests")
set.seed(2019-01-15)
z   <- rnorm(2974) - 0.4
dat <- data.frame(zee = z)
zc  <- zcurve(dat, zee)

test_that("zcurve returns a ggplot2 object", {
  expect_is(zc, "ggplot")
})

test_that("zcurve data is equal to the number of observations", {
  expect_equal(nrow(zc$data), 2974)
})

test_that("zcurve will throw an error if the input is not numeric", {
  expect_error(zcurve(letters), "x must be a data frame")
})