test_that("pv provides proper messages and warnings", {
expect_error(pv(FV="1000", 0.09, n=5))
expect_error(pv(FV=list(1,2,3), 0.09, n=5))
expect_message(pv(FV=1000, 0.36, n=5))
})
test_that("pv has correct dimensinos and output type", {
expect_is(pv(FV=1000, 0.09, n=5), "numeric")
expect_true(is.vector(pv(FV=c(1000,2000), 0.09, n=5)))
expect_length(pv(FV=c(1000,2000), 0.09, n=5), 2)
})
test_that("pv computes corectly", {
expect_equal(pv(FV = 1000, 0.09, n=5), 649.93)
expect_lt(pv(FV=1000, 0.09, n=5), 650)
expect_gt(pv(FV=1000, 0.09, n=5), 649)
expect_equal(pv(FV=c(10,20), 0.09, n=5), c(6.5, 13))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.