Skip to main content
. Author manuscript; available in PMC: 2016 Aug 26.
Published in final edited form as: Methods Rep RTI Press. 2016 Feb;2016:MR-0033-1602. doi: 10.3768/rtipress.2016.mr.0033.1602
# 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)