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
# Figure similar to Figure 7
par(mfrow=c(1,1), bg='cornsilk3',
mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)
times <− c(1,100,200,300,400,500)
lc <− longCat(example3, times)
group <− sample(1:3, nrow(example3),
replace=TRUE)
grouplc <− sorter(lc, group=group)
cols <− longCatPlot(grouplc,
groupBuffer=.15, main='Grouped Data',
colScheme='heat', lwd=2, legendBuffer=0)
legend(600, 130, legend=1:5, col=cols,
lty=1, lwd=2)
par(bg='transparent',
mar = c(5, 4, 4, 2) + 0.1, xpd=FALSE)