inst/tinytest/linear_algebra/test-cinv.R

# set-up ====
enumerate <- 0L
errorfun <- function(tt) {
  
  if(isFALSE(tt)) stop(print(tt))
}

vc <- datasets::ability.cov$cov
expect_equal(
  chol2inv(chol(vc)),
  cinv(vc)
)
enumerate <- 1L

Try the broadcast package in your browser

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

broadcast documentation built on Sept. 15, 2025, 5:08 p.m.