\begin{center}
<<bug.growth,fig=TRUE,echo=FALSE,cache.extra=file.info("data/sorted_bug_growth_for_r_every_500.txt")[,"mtime"]>>=
bug.growth <- fread("data/sorted_bug_growth_for_r_every_500.txt")
colnames(bug.growth) <- c("time","bugs")
bug.growth <- bug.growth[pmax(bugs) <= as.numeric(bugs),]
bug.growth <- bug.growth[order(time),]
\begin{center}
<<bug.growth,fig=TRUE,echo=FALSE,cache.extra=file.info("data/sorted_bug_growth_for_r_every_500.txt")[,"mtime"]>>=
bug.growth <- fread("data/sorted_bug_growth_for_r_every_500.txt")
colnames(bug.growth) <- c("time","bugs")
bug.growth <- bug.growth[pmax(bugs) <= as.numeric(bugs),]
bug.growth <- bug.growth[order(time),]