Nothing
df <- get_design("blocking")
parsed_df <- parse_design(df)
test_that("show method works", {
expect_no_error(capture_message(show(parsed_df)))
})
test_that("mapping method returns the mapping", {
map <- parsed_df@mapping
expect_equal(map, mapping(parsed_df))
})
test_that("trial method works", {
expect_no_error(trials(parsed_df))
})
test_that("augment method works", {
expect_no_error(augment(parsed_df, model = "ANCCR"))
})
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.