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)))
})

Try the guess package in your browser

Any scripts or data that you put into this service are public.

guess documentation built on May 1, 2019, 10:25 p.m.