# illustrate individually varying times

# of observation

y <− matrix(sample(1:5, 500, replace=TRUE), 100, 5)

t <− matrix(runif(600, 1, 3), 100, 6)

times <− cbind(t[,1], t[,1]+t[,2],     t[,2]+t[,3],     t[,3]+t[,4],     t[,4]+t[,5])

endt <− t[,6]

lc <− longCat(y, times=times, endt=endt)

par(mfrow=c(1,1), bg='cornsilk3', mar=c(5.1, 4.1, 4.1, 10.1), xpd=TRUE)

cols <− longCatPlot(lc, legendBuffer=0,   groupBuffer=0,   main='Individually Varying Times   of Observation')

legend(7.5, 100, legend=lc$factors, lty=1, col=cols, lwd=2)

par(bg='transparent', mar = c(5, 4, 4, 2) + 0.1, xpd=FALSE)