context("Test for Fraser-Suzuki functions")
test_that("fs_function returns correct y value", {
fxn_value <- fs_function(500, 10, .3, 600, 200)
expect_equal(fxn_value, 3.75394, tolerance = 1e-3)
})
test_that("fs_mixture works properly", {
fxn_value <- fs_mixture(500, .1, .3, 200, 100, .2, .25, 400, 60, .15, .26, 600, 200)
expect_equal(fxn_value, 0.06263259)
fxn_four <- fs_mixture(500, .1, .3, 200, 100, .2, .25, 400, 60, .15, .26, 600, 200, .08, .22, 180, 150)
expect_equal(fxn_four, fxn_value + 0.0001504429)
expect_error(fs_mixture(500, .1, .3, 200, 100, .2, .25, 400, 60, .15, .26, 600, 200, .08, .22, 180),
'Specify correct number of parameters')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.