Nothing
context('evalFormula()')
test_that("subset works ", {
expect_equivalent(
evalFormula( age ~ sex, data=mosaicData::HELPrct, age > 50 )[1:3],
evalFormula( age ~ sex, data=subset(mosaicData::HELPrct, age > 50))[1:3] )
})
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.