Nothing
library(ck37r)
# Only run test if necessary suggested packages are installed.
pkg_suggests = c("testthat", "mlbench")
if (!all(suppressWarnings(sapply(pkg_suggests, require, quietly = TRUE,
character.only = TRUE))))
return()
context("Missingness indicators")
# Load a test dataset.
data(PimaIndiansDiabetes2, package = "mlbench")
# Check for missing values.
colSums(is.na(PimaIndiansDiabetes2))
# Generate missingness indicators; skip outcome variable.
indicators = missingness_indicators(PimaIndiansDiabetes2,
skip_vars = "diabetes", verbose = TRUE)
# Check missingness.
colSums(indicators)
# Test with a single-column dataframe (drop = F issue).
# This also tests the case when no missingness indicators are needed.
data = PimaIndiansDiabetes2
# 1 column, no missingness data.
indicators = missingness_indicators(data[, 1, drop = FALSE], verbose = TRUE)
# 1 column, has missingness.
indicators = missingness_indicators(data[, 2, drop = FALSE], verbose = TRUE)
# Test removal of collinear columns.
# Here we add glucose a second time to the end of the dataframe.
indicators = missingness_indicators(cbind(data, glucose2 = data[, 2]),
verbose = TRUE)
# Test removal of constant columns.
data[, 1] = NA
indicators = missingness_indicators(data, verbose = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.