tests/testthat/test-matrix2Rmarix.R

context('matrix2Rmatrix')

# Roundtrip test of matrix
m <- matrix(c(1, 2, 3, 4), ncol=2, nrow=2)
dimnames(m) <- list(c("CL", "V"), c("CL", "V"))

mle <- so_MLE$new()
mle$CovarianceMatrix <- m

new_mle <-mle$CovarianceMatrix

expect_identical(new_mle, m)

Try the libsoc package in your browser

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

libsoc documentation built on Feb. 3, 2022, 5:07 p.m.