Nothing
test_that("Elasticity function returns 2 for the CES_sigma_2 dataset", {
elas <- elasticity(CES_sigma_2, pvar = "prices", qvar = "quantities", pervar = "time", prodID = "prodID",
compIndex = "ces")
# floating point errors lead to this failing without a tolerance
expect_equal(elas$sigma, 2, tolerance = 0.0000001)
})
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.