Nothing
context("sample_imp")
library(testthat)
library(hmi)
#test_check("hmi")
test_that("sample_imp gives useful output", {
expect_equal(sample_imp(1:10)[,1], 1:10)
expect_true(sample_imp(c(1:10, NA))[11, 1] %in% 1:10)
})
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.