# set up the lc object needed to replicate

# Figure 4, herein

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

figure3 <− longCat(example2cat, times)

# object summary

summary(figure3)

# re-create Figure 4, herein

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

longContPlot(example2cat, times, ylim=c(1,5),   main='Growth Curves', ylab='', xlab='Days')

longCatPlot(figure3, lwd=4, main='Horizontal Line Plot', colScheme='heat')

par(mfrow=c(1,1), bg='transparent')