Nothing
context("Testing value added decomposition outputs")
test_that("Output columns", {
table1 <- value_decom(c("h2","x2"), c("w2","u2"), "y2", "p2", "year", mining)[[1]]
expect_equal(ncol(table1), 9)
table2 <- value_decom(c("h2","x2"), c("w2","u2"), "y2", "p2", "year", mining)[[2]]
expect_equal(ncol(table2), 8)
})
test_that("Growth values and level values", {
list_test <- readRDS(system.file("extdata", "test_value_decom.rds", package = "dfvad"))
table1 <- value_decom(c("h2","x2"), c("w2","u2"), "y2", "p2", "year", mining)[[1]]
table2 <- value_decom(c("h2","x2"), c("w2","u2"), "y2", "p2", "year", mining)[[2]]
expect_equal(roll_div(table2[, "TFP"]), table1[, "TFPG"])
expect_equal(table1, list_test[[1]])
expect_equal(table2, list_test[[2]])
})
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.