Nothing
test_that('num_dose_path_nodes is right', {
x <- num_dose_path_nodes(num_patient_outcomes = 2, cohort_sizes = rep(3, 2))
expect_equal(x, c(1, 4, 16))
x <- num_dose_path_nodes(num_patient_outcomes = 4, cohort_sizes = rep(3, 2))
expect_equal(x, c(1, 20, 400))
})
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.