timings/05ca50c4ba8b178c5100c17df1941de5779dd9bc/grattan/tests/testthat/test_financialfunctions.R
In HughParsonage/grattan: Australian Tax Policy Analysis
context("Financial functions")
test_that("Error handling", {
expect_error(irr(c(1, 1)))
})
test_that("Matches Excel", {
expect_equal(npv(0.05, values = c(4, 3, 2, 1)), 9.08098991675279)
expect_equal(irr(c(-1, 1)), 0)
expect_equal(round(pv(0.05, 3, 1), 2), -2.72)
expect_equal(round(pmt(0.05, 3, 5), 2), -1.84)
expect_equal(round(fv(0.05, 5, 2), 2), -11.05)
})
HughParsonage/grattan documentation built on April 1, 2024, 4:10 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.
context("Financial functions")
test_that("Error handling", {
expect_error(irr(c(1, 1)))
})
test_that("Matches Excel", {
expect_equal(npv(0.05, values = c(4, 3, 2, 1)), 9.08098991675279)
expect_equal(irr(c(-1, 1)), 0)
expect_equal(round(pv(0.05, 3, 1), 2), -2.72)
expect_equal(round(pmt(0.05, 3, 5), 2), -1.84)
expect_equal(round(fv(0.05, 5, 2), 2), -11.05)
})
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.