tests/testthat/test-util_count_NA.R

context("test-util_count_NA")

test_that("util_count_NA works", {
  expect_equal(dataquieR:::util_count_NA(c(rep(NA, 10), rnorm(12), 12,
                                           rep(NA, 3))), 13)
})

Try the dataquieR package in your browser

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

dataquieR documentation built on July 26, 2023, 6:10 p.m.