Nothing
fi <- fctr_info(data = pbc_orsf, .names = names(pbc_orsf))
pbc_refcoded <- ref_code(pbc_orsf,
fi,
names_x_data = c("age", "sex", "stage"))
test_that(
desc = "reference coding names and types",
code = {
expect_named(pbc_refcoded, expected = c("age", "sex_f", "stage"))
expect_type(pbc_refcoded$stage, 'integer')
expect_type(pbc_refcoded$sex_f, 'integer')
expect_type(pbc_refcoded$age, 'double')
}
)
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.