add a test

r-devel · Apr 18, 2024 · fa1d333 · fa1d333
1 parent 669ccb2
commit fa1d333
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/library/stats/tests/offsets.R b/src/library/stats/tests/offsets.R
@@ -37,3 +37,9 @@ stopifnot(exprs = {
     is.null(model.weights(model.frame(fit5)))
 })
 ## these were all (even the model fit!) wrong in R <= 4.2.1
+
+## via formula, with stats:: namespace-qualification (#18706)
+fit6 <- lm(Postwt ~ Prewt + Treat + stats::offset(Prewt), data = anorexia)
+summary(fit6)
+pred <- fitted(fit6)
+stopifnot(all.equal(predict(fit6, anorexia), pred))