Nothing
library (testthat)
context ("Creating output multipliers")
de_input_coeff <- input_coefficient_matrix_create (
data_table = iotable_get(),
digits = 4 )
output_multipliers <- output_multiplier_create ( de_input_coeff )
test_that("correct data is returned", {
expect_equal(as.numeric ( output_multipliers[, 2:ncol(output_multipliers)] ),
c(1.7048, 1.8413, 1.8136, 1.6035, 1.5951, 1.3782),
tolerance=1e-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.