show whether bug growth is decreasing over time

[debbugs-presentations.git] / debbugs.Rnw

diff --git a/debbugs.Rnw b/debbugs.Rnw
index 01f123f1ffc17f81acf5eb1854cbbdfbfbd712ea..2deb057b533c334c20524652394d4de54d99a308 100644 (file)
--- a/debbugs.Rnw
+++ b/debbugs.Rnw
@@ -38,6 +38,7 @@
 %  \setbeamercovered{transparent}  
 }
 
+\setbeamertemplate{navigation symbols}{}%remove navigation symbols
 
 \usepackage[nomargin,inline,draft]{fixme}
 \usepackage{listings}
@@ -78,16 +79,16 @@
 %    - release to experimental
 
 
-<<load.libraries,echo=FALSE,results="hide",error=FALSE,message=FALSE>>=
+<<load.libraries,echo=FALSE,results="hide",error=FALSE,message=FALSE,cache=FALSE>>=
 library(lattice)
 library(xtable)
 library(ggplot2)
 library("scales")
 library(reshape2)
 library("data.table")
-opts_chunk$set(dev="cairo_pdf",out.width="\\textwidth",out.height="0.8\\textheight",out.extra="keepaspectratio",fig.width=6,fig.height=4)
+opts_chunk$set(dev="cairo_pdf",out.width="\\textwidth",out.height="0.8\\textheight",out.extra="keepaspectratio",fig.width=6/1.2,fig.height=4/1.2)
 opts_chunk$set(cache=TRUE, autodep=TRUE)
-options(device = function(file, width = 6, height = 4, ...) {
+options(device = function(file, width = 6/1.2, height = 4/1.2, ...) {
   cairo_pdf(tempfile(), width = width, height = height, ...)
 })
 
@@ -146,15 +147,17 @@ scientific_10 <- function(x) {
 
 \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))]
@@ -165,7 +168,7 @@ print(ggplot(bug.growth,#[date > as.POSIXct(ISOdatetime(2005,1,1,0,0,0)),],
              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}
@@ -183,7 +186,17 @@ print(ggplot(bug.growth[date > as.POSIXct(ISOdatetime(2014,1,1,0,0,0)),],
 @ 
 \end{frame}
 
-\begin{frame}{My entries into Cristian's game}
+\begin{frame}[fragile]{Is the bug filing rate decreasing?}
+\tiny
+<<bug_growth_rate_over_time>>=
+summary(lm(log(`bugs per day`)~date,
+           bug.growth[date > "2014-01-01 PST",]))
+@ 
+\normalsize
+Not significantly decreasing.
+\end{frame}
+
+\begin{frame}{My entries into Christian's game}
   \begin{columns}
     \column{0.5\textwidth}
   \begin{center}