tests/testthat/test_matrix_reflection.R

In yinscapital/retina-analysis-reference: Tools for plotting and analyzing vertebrate retinas.

# 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