In jeksterslab/matrixR: Matrix/Linear Algebra

knitr::opts_chunk$set(
  error = TRUE,
  collapse = TRUE,
  comment = "#>",
  out.width = "100%"
)

library(testthat)
library(matrixR)
context("Test Dot.")

test_that("Dot.", {
  expect_equal(
    Dot(
      c(1, 3, -5),
      c(4, -2, -1)
    ),
    as.matrix(3)
  )
  expect_equal(
    c(1, 3, -5) %.% c(4, -2, -1),
    as.matrix(3)
  )
  # yac_symbol
  expect_equal(
    as.numeric(
      Dot(
        Ryacas::ysym(c(1, 3, -5)),
        Ryacas::ysym(c(4, -2, -1))
      )
    ),
    3
  )
  expect_equal(
    eval(
      Dot(
        Ryacas::ysym(c(1, 3, -5)),
        Ryacas::ysym(c(4, -2, -1)),
        str = FALSE
      )
    ),
    3
  )
})

test_that("Error.", {
  expect_error(
    Dot(
      c("a", "b", "c"),
      c("a", "b", "c")
    )
  )
  expect_error(
    Dot(
      c("a", "b", "c"),
      c("a", "b")
    )
  )
})

jeksterslab/matrixR documentation built on Feb. 22, 2021, 8:10 a.m.