tests/testthat/test_xxt.R

context("Matrix multiplication")

test_that("X.t(X)",{

  X <-matrix(runif(100), ncol=20)
  R1  <- xxt(X)
  R2 <- X %*% t(X)

  expect_equal(R1,R2)

})

Try the KRIS package in your browser

Any scripts or data that you put into this service are public.

KRIS documentation built on Jan. 21, 2021, 5:08 p.m.