Nothing
context("Block matrices")
test_that("String initializer works for block matrices", {
# Example matrices
#A1 <- mat('1, 1; 1, 1')
#A2 <- mat('2, 2; 2, 2')
#A3 <- mat('3, 3, 3, 3')
#A <- mat("1, 1, 2, 2; 1, 1, 2, 2; 3, 3, 3, 3")
# Construct a block matrix from matrices A1, A2, and A3
#blk <- bmat('A1, A2; A3')
# Expectations
#expect_identical(blk, A)
})
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.