fix

easystats · Oct 29, 2023 · 3b18f5a · 3b18f5a
1 parent b3ad494
commit 3b18f5a
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/tests/testthat/test-PROreg.R b/tests/testthat/test-PROreg.R
@@ -20,8 +20,7 @@ u <- rnorm(5, 0, sigma)
 eta <- beta[1] + beta[2] * x + crossprod(t(Z), u)
 p <- 1 / (1 + exp(-eta))
 y <- PROreg::rBB(k, m, p, phi)
-dat <- data.frame(cbind(y, x, z))
-dat$z <- as.factor(dat$z)
+dat <<- data.frame(cbind(y, x, z = as.factor(z)))
 
 # apply the model
 m1 <- PROreg::BBmm(