test_that("use", {
n <- 4
ic50s <- seq(1, 2)
t <- convert_ic50s_to_quantiles(ic50s, n = n)
expect_equal(nrow(t), n + 1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.