tests/testthat/test-nona.R

context("Test nona")

test_that("nona works correctly", {
  x <- c(NA, 1, 0)
  y <- nona(x)
  expect_that(y, equals(c(0, 1, 0)))
})
soodoku/guess documentation built on Dec. 31, 2021, 5:19 p.m.