tests/testthat/test-CorrIndex.R

# Simulation Dataset
S_true <- matrix(runif(5*5), nrow=5, ncol=5)
S <- matrix(runif(5*5), nrow=5, ncol=5)

out <- CorrIndex(cor(S_true, S))

expect_true(is.numeric(out))

Try the iTensor package in your browser

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

iTensor documentation built on May 8, 2026, 5:08 p.m.