tests/testthat/test-missing_ind.R

library(nima)
context("Missingness indicators appended appropriately")

# test_that("missingness indicators appears as expected", {
# 	data <- data.frame(cbind(rnorm(10), runif(10)))
# 	data[sample(nrow(data), 3), 1] <- NA
# 	data[sample(nrow(data), 4), 2] <- NA
# 	data <- miss_ind(data)
# 	expect_equal(sum(...)
# })

Try the nima package in your browser

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

nima documentation built on May 21, 2018, 5:03 p.m.