tests/testthat/test_misc.R
In brockk/trialr: Clinical Trial Designs in 'rstan'
test_that('closest_to_target works', {
expect_equal(closest_to_target(c(0.1, 0.2, 0.3), 0.05), 1)
expect_equal(closest_to_target(c(0.1, 0.2, 0.3), 0.22), 2)
expect_equal(closest_to_target(c(0.1, 0.2, 0.3), -0.05), 1)
expect_equal(closest_to_target(c(0.1, 0.2, 0.3), 8), 3)
})
brockk/trialr documentation built on Oct. 19, 2023, 1:45 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that('closest_to_target works', {
expect_equal(closest_to_target(c(0.1, 0.2, 0.3), 0.05), 1)
expect_equal(closest_to_target(c(0.1, 0.2, 0.3), 0.22), 2)
expect_equal(closest_to_target(c(0.1, 0.2, 0.3), -0.05), 1)
expect_equal(closest_to_target(c(0.1, 0.2, 0.3), 8), 3)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.