Add single item test

nlmixr2 · Sep 7, 2024 · fa9a742 · fa9a742
1 parent 3b29dd5
commit fa9a742
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-piping-ini.R b/tests/testthat/test-piping-ini.R
@@ -949,6 +949,16 @@ test_that("ini(diag) tests", {
                  lfun ~ 4
                }))
 
+  tmp <- mod2 %>% ini(diag(lvc))
+
+  expect_equal(tmp$omega,
+               lotri({
+                 lfun ~ 4
+                 lcl ~ c(0.1, 1)
+                 lka ~ c(-0.1, 0.01, 0.45)
+                 lvc ~ 3.45
+               }))
+
   mod <- function() {
     ini({
       lka ~ 0.45