Nothing
testthat::context("Test class 'dual'")
testthat::test_that("Test Constructor and Extractor", {
a <- dual(x = randn(2,2), list(x = 3, y = 4), 2)
testthat::expect_s4_class(a, "dual")
testthat::expect_true(is.numeric(a@x))
testthat::expect_equal(dim(a@dx), c(4, 7))
testthat::expect_true(ADtools:::check_dual(a))
b <- dual(x = randn(2,2), c(x = 1, y = 4), 2)
testthat::expect_s4_class(b, "dual")
testthat::expect_true(is.numeric(b@x))
testthat::expect_equal(dim(b@dx), c(4, 5))
testthat::expect_true(ADtools:::check_dual(b))
c <- dual(x = 1:10, c(x = 1, y = 4), 2)
testthat::expect_s4_class(c, "dual")
testthat::expect_true(is.numeric(c@x))
testthat::expect_equal(dim(c@dx), c(10, 5))
testthat::expect_true(ADtools:::check_dual(c))
testthat::expect_equal(ncol(c@dx), 5)
testthat::expect_error(new("dual", x = randn(2,2), dx = "Error!"))
})
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.