Nothing
library(PELVIS)
test_that("metavar gives correct answers", {
x <- c("f", "i", "f")
y <- c("m", "m", "i")
z <- c("i", "i", "f")
a <- c(NA, "f", "f")
b <- c(NA, NA, "m")
expect_equal(metavar(x), "F")
expect_equal(metavar(y), "M")
expect_equal(metavar(z), "0")
expect_equal(metavar(a), "F")
expect_equal(metavar(b), NA)
})
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.