tests/testthat/test_value_decom.R

In dfvad: Diewert and Fox's Method of Value Added Growth Decomposition

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]])
})