Add tests for augPred not interpolating obs

nlmixr2 · Sep 17, 2024 · 830e6be · 830e6be
1 parent 0555279
commit 830e6be
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/tests/testthat/test-augpred.R b/tests/testthat/test-augpred.R
@@ -38,7 +38,12 @@ nmTest({
         tableControl(cwres = TRUE, npde=TRUE)
       )
 
-      expect_error(augPred(fitOne.comp.KA.solved_S), NA)
+    expect_error(augPred(fitOne.comp.KA.solved_S), NA)
+
+    ap <- augPred(fitOne.comp.KA.solved_S)
+
+    expect_equal(as.character(ap[ap$id == 1 & ap$time == 120, "ind"]),
+                 c("Individual", "Population"))
 
     skip_if_not(rxode2::.linCmtSensB())