Nothing
# SS Test
sys1 <- ss(1, 2, 3, 4)
context("SS: Model Creation Test")
test_that("System is a ss object", {
expect_is(sys1, 'ss')
})
context("SS: Model Data Test")
test_that("SS values are matrices", {
expect_true(is.matrix(sys1$A))
expect_true(is.matrix(sys1$B))
expect_true(is.matrix(sys1$C))
expect_true(is.matrix(sys1$D))
})
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.