diff --git a/tests/testthat/test-binned_residuals.R b/tests/testthat/test-binned_residuals.R
index 174156cd5..7b966797e 100644
--- a/tests/testthat/test-binned_residuals.R
+++ b/tests/testthat/test-binned_residuals.R
@@ -164,7 +164,7 @@ test_that("binned_residuals, msg for non-bernoulli", {
 
   dat <- data.frame(tot, suc)
   dat$prop <- suc / tot
-  dat$x1 <- as.factor(sample(1:5, 100, replace = TRUE))
+  dat$x1 <- as.factor(sample.int(5, 100, replace = TRUE))
 
   mod <- glm(prop ~ x1,
     family = binomial,