tests/testthat/test-mx.R

In eguidotti/calculus: High Dimensional Numerical and Symbolic Calculus

test_that("202012291904", {
  e <- 1:26
  names(e) <- letters[1:26]
  n <- matrix(e, nrow = 2)
  s <- matrix(names(e), nrow = 2)
  x <- n %*% t(n) 
  y <- evaluate(s %mx% t(s), e)
  expect_equal(x, y)
})

test_that("202012291905", {
  e <- 1:26
  names(e) <- letters[1:26]
  n <- matrix(e, nrow = 2)
  s <- matrix(names(e), nrow = 2)
  x <- n %mx% t(n) 
  y <- evaluate(s %mx% t(s), e)
  expect_equal(x, y)
})

test_that("202012291906", {
  e <- 1:26
  names(e) <- letters[1:26]
  n <- matrix(e, nrow = 1)
  s <- matrix(names(e), nrow = 1)
  x <- n %*% t(n) 
  y <- evaluate(s %mx% t(s), e)
  expect_equal(x, y)
})

test_that("202012291907", {
  e <- 1:26
  names(e) <- letters[1:26]
  n <- matrix(e, nrow = 1)
  s <- matrix(names(e), nrow = 1)
  x <- n %mx% t(n) 
  y <- evaluate(s %mx% t(s), e)
  expect_equal(x, y)
})

test_that("202012291908", {
  e <- 1
  names(e) <- letters[1]
  n <- matrix(e, nrow = 1)
  s <- matrix(names(e), nrow = 1)
  x <- n %*% t(n) 
  y <- evaluate(s %mx% t(s), e)
  expect_equal(x, y)
})

test_that("202012291909", {
  e <- 1
  names(e) <- letters[1]
  n <- matrix(e, nrow = 1)
  s <- matrix(names(e), nrow = 1)
  x <- n %mx% t(n) 
  y <- evaluate(s %mx% t(s), e)
  expect_equal(x, y)
})