Nothing
context("Concatenating")
test_that("concatenate editmatrix",{
E1 <- editmatrix("x1 + x2 > 0")
E2 <- editmatrix("x2 + x3 < 10")
E <- editmatrix(c("x1 + x2 > 0", "x2 + x3 < 10"))
#print(c.editmatrix(E1,E2))
#print(E)
expect_equivalent(E, c(E1,E2))
e <- editmatrix(expression())
expect_equivalent(nedits(c(e,e)),0)
expect_equivalent(nedits(c(e,NULL)),0)
})
test_that("concatenate editmatrix",{
E <- editmatrix(c("x1 + x2 > 0", "x2 + x3 < 10"))
expect_equivalent(E, c(E))
})
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.