# context("matrix_reflection horiztonal")
# test_that("matrix vertical line reflection works nicely for n columned matrices", {
# a <- (matrix(1:9,3, 3))
# my_b <- reflect_across_vertical_line(a)
# expected_b <- (matrix(c(7,8,9,4,5,6,1,2,3),3, 3))
# expect_equal(my_b, expected_b)
# })
# TODO fix the test because it currently tests for vertical reflection
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.