Nothing
test_that("convert when bsa is supplied", {
# This is a patient with BSA < 1.7, so relative should be > absolute
expect_equal(round(relative2absolute_bsa(59.8, 1.62)$value, 2), 56)
})
test_that("convert when height/weight supplied", {
# This is a patient with BSA > 1.7, so relative should be < absolute
expect_equal(
round(relative2absolute_bsa(144.5, weight = 80, height = 200)$value),
180
)
})
test_that("errors when bsa and (height or weight) missing", {
expect_error(relative2absolute_bsa(180, height = 200))
expect_error(relative2absolute_bsa(180, weight = 100))
})
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.