LTRCtrees

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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: LTRCART
> ### Title: Fit a relative risk survival tree for LTRC data
> ### Aliases: LTRCART
> 
> ### ** Examples
> 
> ## The Assay of serum free light chain data in survival package
> ## Adjust data & clean data
> library(survival)
> library(LTRCtrees)
> Data <- flchain
> Data <- Data[!is.na(Data$creatinine),]
> Data$End <- Data$age + Data$futime/365
> DATA <- Data[Data$End > Data$age,]
> names(DATA)[6] <- "FLC"
> 
> ## Setup training set and test set
> Train = DATA[1:500,]
> Test = DATA[1000:1020,]
> 
> ## Fit LTRCART survival tree
> ## make sure to attach survival package (by library(survival) ) before using Surv function
> LTRCART.obj <- LTRCART(Surv(age, End, death) ~ sex + FLC + creatinine, Train)
Error in a$specials[[i]] : subscript out of bounds
Calls: LTRCART ... survfit.coxph -> model.matrix.coxph -> delete.response -> off
Execution halted

Error(s) in re-building vignettes:
  ...
--- re-building ‘LTRCtrees.Rmd’ using rmarkdown

Quitting from LTRCtrees.Rmd:47-62 [unnamed-chunk-3]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
Error in `a$specials[[i]]`:
! subscript out of bounds
---
Backtrace:
    ▆
 1. └─LTRCtrees::LTRCART(...)
 2.   └─survival::basehaz(temp)
 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]])
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Error: processing vignette 'LTRCtrees.Rmd' failed with diagnostics:
subscript out of bounds
--- failed re-building ‘LTRCtrees.Rmd’

SUMMARY: processing the following file failed:
  ‘LTRCtrees.Rmd’

Error: Vignette re-building failed.
Execution halted