Running examples in 'Epi-Ex.R' failed
The error most likely occurred in:

> ### Name: boxes.MS
> ### Title: Draw boxes and arrows for illustration of multistate models.
> ### Aliases: tbox dbox fillarr boxarr boxes boxes.Lexis boxes.matrix
> ###   boxes.MS
> ### Keywords: survival hplot iplot
> 
> ### ** Examples
> 
> par( mar=c(0,0,0,0), cex=1.5 )
> plot( NA,
+       bty="n",
+       xlim=0:1*100, ylim=0:1*100, xaxt="n", yaxt="n", xlab="", ylab="" )
> bw  <- tbox( "Well"    , 10, 60, 22, 10, col.txt="blue" )
> bo  <- tbox( "other Ca", 45, 80, 22, 10, col.txt="gray" )
> bc  <- tbox( "Ca"      , 45, 60, 22, 10, col.txt="red" )
> bd  <- tbox( "DM"      , 45, 40, 22, 10, col.txt="blue" )
> bcd <- tbox( "Ca + DM" , 80, 60, 22, 10, col.txt="gray" )
> bdc <- tbox( "DM + Ca" , 80, 40, 22, 10, col.txt="red" )
>       boxarr( bw, bo , col=gray(0.7), lwd=3 )
> # Note the argument adj= can takes values outside (0,1)
> text( boxarr( bw, bc , col="blue", lwd=3 ),
+       expression( lambda[Well] ), col="blue", adj=c(1,-0.2), cex=0.8 )
>       boxarr( bw, bd , col=gray(0.7) , lwd=3 )
>       boxarr( bc, bcd, col=gray(0.7) , lwd=3 )
> text( boxarr( bd, bdc, col="blue", lwd=3 ),
+       expression( lambda[DM] ), col="blue", adj=c(1.1,-0.2), cex=0.8 )
> 
> # Set up a transition matrix allowing recovery
> tm <- rbind( c(NA,1,1), c(1,NA,1), c(NA,NA,NA) )
> rownames(tm) <- colnames(tm) <- c("Cancer","Recurrence","Dead")
> tm
           Cancer Recurrence Dead
Cancer         NA          1    1
Recurrence      1         NA    1
Dead           NA         NA   NA
> boxes.matrix( tm, boxpos=TRUE )
> 
> # Illustrate texting of arrows
> boxes.Lexis( tm, boxpos=TRUE, txt.arr=c("en","to","tre","fire") )
> zz <- boxes( tm, boxpos=TRUE, txt.arr=c(expression(lambda[C]),
+                                         expression(mu[C]),
+                                         "recovery",
+                                         expression(mu[R]) ) )
> 
> # Change color of a box
> zz$Boxes[3,c("col.bg","col.border")] <- "green"
> boxes( zz )
Error in value[[jvseq[[jjj]]]] : subscript out of bounds
Calls: boxes -> boxes.MS -> [<- -> [<-.data.frame
Execution halted