Package check result: OK

Changes to worse in reverse depends:

Package: cohorttools
Check: examples
New result: ERROR
  Running examples in ‘cohorttools-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: boxesLx
  > ### Title: Boxes plot summarizing Lexis object
  > ### Aliases: boxesLx
  > 
  > ### ** Examples
  > 
  > library(DiagrammeR)
  > library(survival)
  > library(Epi)
  > library(mstate)
  
  Attaching package: ‘mstate’
  
  The following objects are masked from ‘package:Epi’:
  
      absorbing, paths
  
  > data(ebmt3)
  > bmt <- Lexis(exit = list(tft = rfstime/365.25),
  +              exit.status = factor(rfsstat, labels = c("Tx", "RD")),
  +                           data = ebmt3)
  NOTE: entry.status has been set to "Tx" for all.
  NOTE: entry is assumed to be 0 on the tft timescale.
  > bmtr <- cutLexis(bmt, cut = bmt$prtime/365.25, precursor.states = "Tx",
  +                                            new.state = "PR")
  > 
  > summary(bmtr)
       
  Transitions:
       To
  From   Tx   PR  RD Records: Events: Risk time: Persons:
    Tx  577 1169 458     2204    1627    2439.43     2204
    PR    0  786 383     1169     383    3173.03     1169
    Sum 577 1955 841     3373    2010    5612.46     2204
  > kk<-boxesLx(bmtr)
  Error in lv.1$Transitions[1:lv.len, " Persons:"] : 
    subscript out of bounds
  Calls: boxesLx
  Execution halted