Address review: add explanatory comments in test-target-offset.R

Copilot · krivit · web-flow · commit 0fdcb04dee25 · 2026-04-09T04:39:06.000Z
Agent-Logs-Url: https://github.com/statnet/tergm/sessions/e7c7ae85-14b4-49e7-8957-c4dae713d8e2 Co-authored-by: krivit <15682462+krivit@users.noreply.github.com>
diff --git a/tests/testthat/test-target-offset.R b/tests/testthat/test-target-offset.R
@@ -44,8 +44,10 @@ opttest({
                    control=control.tergm(init=c(-3,0.8,log(9)))
     )
 
+    # Verify all four models produce coefficients without error
     sapply(list(mod1, mod2, mod3, mod4), function(x) coef(x))
 
+    # Verify simulation runs without error for all models
     for (mod in list(mod1, mod2, mod3, mod4)) {
       print(apply(simulate(mod, monitor=~edges+degree(3), output="stats", time.slices=200), 2, mean))
     }

Original file line number	Diff line number	Diff line change
`@@ -44,8 +44,10 @@ opttest({`
`44`	`44`	`control=control.tergm(init=c(-3,0.8,log(9)))`
`45`	`45`	`)`
`46`	`46`
	`47`	`+ # Verify all four models produce coefficients without error`
`47`	`48`	`sapply(list(mod1, mod2, mod3, mod4), function(x) coef(x))`
`48`	`49`
	`50`	`+ # Verify simulation runs without error for all models`
`49`	`51`	`for (mod in list(mod1, mod2, mod3, mod4)) {`
`50`	`52`	`print(apply(simulate(mod, monitor=~edges+degree(3), output="stats", time.slices=200), 2, mean))`
`51`	`53`	`}`