\section{Bugs in Debian}
\subsection{Bug Reporting Rate}
-\begin{frame}{How many bugs do we have?}
+\begin{frame}{Bugs from the beginning of 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),]
-bug.growth <-
- bug.growth[c(0,diff(bugs))>=0,]
+while (bug.growth[,any(c(0,diff(bugs)) < 0)]) {
+ bug.growth <-
+ bug.growth[c(0,diff(bugs))>=0,]
+}
bug.growth[,date:=
as.POSIXct(ISOdatetime(1970,1,1,0,0,0)+
as.numeric(bug.growth$time))]
aes(x=date,y=bugs))+
xlab("Time")+ylab("Bugs filed in Debian")+
scale_y_continuous(labels = scientific_10)+
- geom_point()+stat_smooth(method="lm"))
+ geom_point())
@
\end{center}
\end{frame}