Nothing
#
# Author: andrie
###############################################################################
test_that("dropout calculation is correct", {
rest <- setNames(c(215, 35), c("id", "Q23_other"))
expect_equal(dropout(membersurvey[-(108:109)]), rest)
})
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.