# replicate Figure 5

par(mfrow=c(1,2), bg='cornsilk3')

times <− c(1,100,200,300,400,500)

f3lc <− longCat(example3, times)

f3lc$sorted <− TRUE

f3lc$data.sorted <− f3lc$data

longCatPlot(f3lc, main='Unsorted', colScheme='heat', lwd=2)

f3lc <− longCat(example3, times)

longCatPlot(f3lc, main='Sorted', colScheme='heat', lwd=2)