context("Test nona")

test_that("nona works correctly", {
  x <- c(NA, 1, 0)
  y <- nona(x)
  expect_equal(y, c(0, 1, 0))
})