Nothing
# Replaces missing values in a factor
#
# Author: Justin
library(testthat)
library(Causata)
context("CleanNaFromFactor")
# create a factor with missing values
f <- as.factor(c("a","b","c",NA))
test_that("Missing values are present in test data", expect_true( any(is.na(f)) ))
test_that("Missing values are replaced", expect_false( any(is.na(CleanNaFromFactor(f))) ))
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.