tests/testthat/test-low_to_matrix.R

In FelicienLL/uncrtnty: Useful R functions to deal with uncertainty in NONMEM analyses

test_that("low_to_matrix works", {
  x0 <- c(0.02186580, -0.00226411,  0.01478950,  0.00000000,  0.00000000,  0.00000000, -0.00480058, -0.00129542,  0.00000000,  0.02463480)
  expect0 <- matrix(c(0.02186580, -0.00226411, 0.00000000, -0.00480058,
                     -0.00226411,  0.01478950, 0.00000000, -0.00129542,
                      0.00000000,  0.00000000, 0.00000000,  0.00000000,
                     -0.00480058, -0.00129542, 0.00000000,  0.02463480), nrow = 4, ncol = 4)
  expect_equal(low_to_matrix(x0), expect0)
})