tests/cov.r

library(pcapack)

m <- 100
n <- 25
x <- matrix(rnorm(m*n), m, n)

stopifnot(all.equal(cov(x), cov2(x)))
wrathematics/pcapack documentation built on May 4, 2019, 10:53 a.m.