In jeksterslab/matrixR: Matrix/Linear Algebra

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

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

A <- matrix(1:9, ncol = 3)

test_that("Identity", {
  expect_equal(
    3,
    sum(Identity(dim(A)[1])),
    sum(IdentityFrom(A))
  )
})

test_that("Error", {
  expect_error(
    IdentityFrom(matrix(1:10, ncol = 2))
  )
})

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