maicplus

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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ph_diagplot
> ### Title: Diagnosis plot of proportional hazard assumption for anchored
> ###   and unanchored
> ### Aliases: ph_diagplot
> 
> ### ** Examples
> 
> # unanchored example using ph_diagplot
> data(weighted_sat)
> data(adtte_sat)
> data(pseudo_ipd_sat)
> 
> ph_diagplot(
+   weights_object = weighted_sat,
+   tte_ipd = adtte_sat,
+   tte_pseudo_ipd = pseudo_ipd_sat,
+   trt_var_ipd = "ARM",
+   trt_var_agd = "ARM",
+   trt_ipd = "A",
+   trt_agd = "B",
+   trt_common = NULL,
+   endpoint_name = "Overall Survival",
+   time_scale = "week",
+   zph_transform = "log",
+   zph_log_hazard = TRUE
+ )
Error in a$specials[[i]] : subscript out of bounds
Calls: ph_diagplot ... model.matrix -> model.matrix.coxph -> delete.response -> off
Execution halted
Examples with CPU (user + system) or elapsed time > 5s
          user system elapsed
kmplot2 10.436  0.245  12.247

Running ‘testthat.R’ [24s/27s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > pkg_name <- "maicplus"
  > library(pkg_name, character.only = TRUE)
  > testthat::test_check(pkg_name)
                result               pvalue 
  "-0.17[-0.61; 0.28]"              "0.535" 
  NULL
  NULL
  NULL
  NULL
  Saving _problems/test-plot_km-143.R
  Saving _problems/test-plot_km-162.R
  Saving _problems/test-plot_km-182.R
  Saving _problems/test-plot_km-201.R
  Saving _problems/test-plot_km-247.R
  Saving _problems/test-plot_km-258.R
  Ignoring unknown labels:
  * colour : "Treatment"
  Ignoring unknown labels:
  * colour : "Treatment"
  Ignoring unknown labels:
  * colour : "Treatment"
  Ignoring unknown labels:
  * colour : "Treatment"
  Ignoring unknown labels:
  * colour : "Treatment"
  Ignoring unknown labels:
  * colour : "Treatment"
  [ FAIL 6 | WARN 0 | SKIP 14 | PASS 82 ]
  
  ══ Skipped tests (14) ══════════════════════════════════════════════════════════
  • On CRAN
...[truncated]...
or/condition>
  Error in `a$specials[[i]]`: subscript out of bounds
  Backtrace:
       ▆
    1. └─vdiffr::expect_doppelganger(...) at test-plot_km.R:251:3
    2.   └─vdiffr (local) writer(fig, testcase, title)
    3.     ├─vdiffr:::print_plot(plot, title)
    4.     └─vdiffr:::print_plot.function(plot, title)
    5.       └─maicplus (local) p()
    6.         └─maicplus::ph_diagplot_schoenfeld(...) at test-plot_km.R:254:7
    7.           ├─stats::residuals(coxobj, type = "schoenfeld")
    8.           └─survival:::residuals.coxph(coxobj, type = "schoenfeld")
    9.             └─survival:::coxph.getdata(object, y = TRUE, x = TRUE, stratax = TRUE)
   10.               ├─stats::model.matrix(fit, data = mf)
   11.               └─survival:::model.matrix.coxph(fit, data = mf)
   12.                 └─stats::delete.response(object$terms)
   13.                   └─stats (local) off(a$specials[[i]])
  
  [ FAIL 6 | WARN 0 | SKIP 14 | PASS 82 ]
  Error:
  ! Test failures.
  Execution halted