RMSTpowerBoost

Running examples in ‘RMSTpowerBoost-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: MS.power.analytical
> ### Title: Analyze Power for a Multiplicative Stratified RMST Model
> ###   (Analytic)
> ### Aliases: MS.power.analytical
> 
> ### ** Examples
> 
> set.seed(123)
> pilot_df_strat <- data.frame(
+  time = rexp(120, 0.15),
+  status = rbinom(120, 1, 0.6),
+  arm = rep(0:1, each = 60),
+  region = factor(rep(c("A", "B", "C"), each = 40))
+ )
> pilot_df_strat$time[pilot_df_strat$arm == 1] <- pilot_df_strat$time[pilot_df_strat$arm == 1] * 1.5
> 
> power_results <- MS.power.analytical(
+  pilot_data = pilot_df_strat,
+  time_var = "time", status_var = "status", arm_var = "arm", strata_var = "region",
+  sample_sizes = c(50, 75, 100),
+  L = 10, alpha = 0.05
+ )
Error in a$specials[[i]] : subscript out of bounds
Calls: MS.power.analytical ... survfit.coxph -> model.matrix.coxph -> delete.response -> off
Execution halted

Running ‘testthat.R’ [80s/90s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(RMSTpowerBoost)
  > 
  > test_check("RMSTpowerBoost")
  Saving _problems/testthat-additive-78.R
  Saving _problems/testthat-additive-89.R
  Saving _problems/testthat-apps-49.R
  Saving _problems/testthat-coverage-gates-230.R
  Saving _problems/testthat-rmst-interface-230.R
  Saving _problems/testthat-rmst-interface-239.R
  Saving _problems/testthat-rmst-interface-247.R
  Saving _problems/testthat-rmst-interface-258.R
  Saving _problems/testthat-rmst-interface-295.R
  Saving _problems/testthat-rmst-interface-317.R
  Saving _problems/testthat-rmst-interface-328.R
  Saving _problems/testthat-rmst-interface-353.R
  Saving _problems/testthat-rmst-interface-380.R
  `geom_line()`: Each group consists of only one observation.
  i Do you need to adjust the group aesthetic?
  Saving _problems/testthat_DC-38.R
  Saving _problems/testthat_DC-60.R
  Saving _problems/test
...[truncated]...
l::survfit(fit, se.fit = FALSE)
   4.     └─survival:::survfit.coxph(fit, se.fit = FALSE)
   5.       └─survival:::model.matrix.coxph(object, data = mf)
   6.         └─stats::delete.response(object$terms)
   7.           └─stats (local) off(a$specials[[i]])
  ── Error ('testthat_strat.R:82:4'): Analytical and Bootstrap methods give comparable results for multiplicative model ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `a$specials[[i]]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─RMSTpowerBoost::MS.ss.analytical(...) at testthat_strat.R:82:4
   2.   └─survival::basehaz(fit_cens, centered = FALSE)
   3.     ├─survival::survfit(fit, se.fit = FALSE)
   4.     └─survival:::survfit.coxph(fit, se.fit = FALSE)
   5.       └─survival:::model.matrix.coxph(object, data = mf)
   6.         └─stats::delete.response(object$terms)
   7.           └─stats (local) off(a$specials[[i]])
  
  [ FAIL 21 | WARN 0 | SKIP 1 | PASS 438 ]
  Error:
  ! Test failures.
  Execution halted