Running ‘KM.R’ [6s/9s]
  Running ‘bugfixes.R’ [0s/0s]
  Running ‘confint.R’ [12s/14s]
  Comparing ‘confint.Rout’ to ‘confint.Rout.save’ ... OK
  Running ‘csep.R’ [13s/19s]
  Running ‘edges.R’ [2s/3s]
  Running ‘empirical.R’ [12s/15s]
  Comparing ‘empirical.Rout’ to ‘empirical.Rout.save’ ... OK
  Running ‘exact.R’ [24s/31s]
  Comparing ‘exact.Rout’ to ‘exact.Rout.save’ ... OK
  Running ‘free1way-Ex.R’ [10s/12s]
  Comparing ‘free1way-Ex.Rout’ to ‘free1way-Ex.Rout.save’ ... OK
  Running ‘glm.R’ [3s/4s]
  Comparing ‘glm.Rout’ to ‘glm.Rout.save’ ... OK
  Running ‘jobsatisfaction.R’ [3s/4s]
  Comparing ‘jobsatisfaction.Rout’ to ‘jobsatisfaction.Rout.save’ ... OK
  Running ‘logrank.R’ [5s/6s]
  Comparing ‘logrank.Rout’ to ‘logrank.Rout.save’ ... OK
  Running ‘polr.R’ [16s/19s]
  Comparing ‘polr.Rout’ to ‘polr.Rout.save’ ... OK
  Running ‘power.R’ [92s/107s]
  Comparing ‘power.Rout’ to ‘power.Rout.save’ ... OK
  Running ‘speed.R’ [8s/10s]
Running the tests in ‘tests/bugfixes.R’ failed.
Complete output:
  > 
  > library("free1way.docreg")
  > 
  > ### bugs fixed in 4.6.1, so test with R 4.6.1 or later only
  > if (compareVersion(paste0(version$major, ".", version$minor), "4.6.1") >= 0)
  + {
  + ### strata_ratio didn't work properly in free1way.docreg 1.0-0 / R 4.6.0
  + ### fixed 2026-06-05
  + df <- rfree1way(10, delta = .5, strata_ratio = c(2, 3), blocks = 3)
  + (xt <- xtabs(~ groups + blocks, data = df))
  + stopifnot(isTRUE(max(abs(xt - 10 * matrix(rep(1:3, 2), byrow = TRUE, nrow = 2))) == 0))
  + 
  + ### while we are at it, test alloc_ratio together with strata_ratio
  + df <- rfree1way(10, delta = .5, strata_ratio = c(2, 3), alloc_ratio = 2, blocks = 3)
  + (xt <- xtabs(~ groups + blocks, data = df))
  + stopifnot(isTRUE(max(abs(xt - 10 * matrix(rep(1:3, 2), byrow = TRUE, nrow = 2) * c(1, 2))) == 0))
  + 
  + ### prob arg with zero prob categories resulted in 
  + ### Error in cut.default(runif(colsums[k]), breaks = c(-Inf, p[, k])) : 
  + #  'breaks' are not unique
  + power.free1way.test(n = 10, prob = matrix(c(0, 0, 1, 2, 3), ncol = 1),
  +                     delta = 1)
  + }
  Error: isTRUE(max(abs(xt - 10 * matrix(rep(1:3, 2), byrow = TRUE, nrow = 2))) ==  .... is not TRUE
  Execution halted