lintr

easystats · Jul 23, 2024 · d265c99 · d265c99
1 parent 6866a06
commit d265c99
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-robust.R b/tests/testthat/test-robust.R
@@ -354,7 +354,7 @@ skip_if_not_installed("lme4")
 test_that("robust-se lmer", {
   data(iris)
   set.seed(1234)
-  iris$grp <- as.factor(sample(1:3, nrow(iris), replace = TRUE))
+  iris$grp <- as.factor(sample.int(3, nrow(iris), replace = TRUE))
 
   m <- lme4::lmer(
     Sepal.Length ~ Species * Sepal.Width + Petal.Length + (1 | grp),
@@ -368,7 +368,7 @@ test_that("robust-se lmer", {
 test_that("robust-p lmer", {
   data(iris)
   set.seed(1234)
-  iris$grp <- as.factor(sample(1:3, nrow(iris), replace = TRUE))
+  iris$grp <- as.factor(sample.int(3, nrow(iris), replace = TRUE))
 
   m <- lme4::lmer(
     Sepal.Length ~ Species * Sepal.Width + Petal.Length + (1 | grp),
@@ -385,7 +385,7 @@ test_that("robust-p lmer", {
 test_that("robust-ci lmer", {
   data(iris)
   set.seed(1234)
-  iris$grp <- as.factor(sample(1:3, nrow(iris), replace = TRUE))
+  iris$grp <- as.factor(sample.int(3, nrow(iris), replace = TRUE))
 
   m <- lme4::lmer(
     Sepal.Length ~ Species * Sepal.Width + Petal.Length + (1 | grp),