Nothing
library(testthat)
test_that("gcv_convert", {
expect_equal(
gcv_convert(0.01),
100*sqrt(exp(0.01)-1),
info="The math is numerically accurate"
)
expect_equal(
gcv_convert(c(0.1, 0.01)),
100*sqrt(exp(c(0.1, 0.01))-1),
info="Vectorized input works"
)
expect_equal(
gcv_convert(0.01),
gcv_convert(gsd=0.1),
info="gvar and gsd work the same"
)
expect_error(
gcv_convert(gvar=0.01, gsd=0.1),
regexp="Only one of `gvar` or `gsd` may be provided at a time.",
fixed=TRUE
)
})
test_that("gm", {
expect_equal(
gm(c(323, 5632, 342, 667, 2174)),
979.6148,tolerance = 1e-4,
info="The math is numerically accurate"
)
})
test_that("pcv", {
expect_equal(
pcv(c(323, 5632, 342, 667, 2174)),
123.6015,tolerance = 1e-4,
info="The math is numerically accurate"
)
})
test_that("gcv", {
expect_equal(
gcv(c(323, 5632, 342, 667, 2174)),
1.920674,tolerance = 1e-4,
info="The math is numerically accurate"
)
})
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.