ipw

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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ipwtm
> ### Title: Estimate Inverse Probability Weights (Time Varying)
> ### Aliases: ipwtm
> ### Keywords: htest models
> 
> ### ** Examples
> 
> ########################################################################
> #EXAMPLE 1
> 
> #Load longitudinal data from HIV positive individuals.
> data(haartdat)
> 
> #CD4 is confounder for the effect of initiation of HAART therapy on mortality.
> #Estimate inverse probability weights to correct for confounding.
> #Exposure allocation model is Cox proportional hazards model.
> temp <- ipwtm(
+   exposure = haartind,
+   family = "survival",
+   numerator = ~ sex + age,
+   denominator = ~ sex + age + cd4.sqrt,
+   id = patient,
+   tstart = tstart,
+   timevar = fuptime,
+   type = "first",
+   data = haartdat)
Error in a$specials[[i]] : subscript out of bounds
Calls: ipwtm ... survfit.coxph -> model.matrix.coxph -> delete.response -> off
Execution halted

Running ‘testthat.R’ [3s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(ipw)
  > 
  > test_check("ipw")
  Saving _problems/test-ipwtm-20.R
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 18 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-ipwtm.R:10:3'): ipwtm correctly calculates cumulative weights for survival family ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `a$specials[[i]]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─ipw::ipwtm(...) at test-ipwtm.R:10:3
   2.   └─survival::basehaz(mod1, centered = TRUE)
   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 1 | WARN 0 | SKIP 0 | PASS 18 ]
  Error:
  ! Test failures.
  Execution halted