\mode<presentation>
{
- \usetheme[hideallsubsections]{Hannover}
+ \usetheme{Montpellier}
%\useoutertheme[hideallsubsections]{debiansidebar}
- \setbeamercovered{transparent}
+% \setbeamercovered{transparent}
}
\setlength{\parskip}{0pt}}%
{\end{itemize}}
-\logo{\includegraphics[width=2cm]{figures/openlogo.pdf}}
+\logo{\begin{tikzpicture}% Pale figure
+ {\node[opacity=0.3] {\includegraphics[width=2cm,keepaspectratio]{figures/openlogo-crop.pdf}};}%
+ \end{tikzpicture}}
\author{Don Armstrong}
\title{Debbugs}
\subtitle{Database Ho!}
%\date{August 11th, 2008}
\titlegraphic{\includegraphics[height=0.3\textheight,keepaspectratio]{figures/openlogo-crop.pdf}}
-\logo{\includegraphics[width=2cm,keepaspectratio]{figures/openlogo-crop.pdf}}
\subject{BTS}
% State of the BTS: new features, changes and tips
library(xtable)
library(ggplot2)
library(reshape2)
-opts_chunk$set(dev="cairo_pdf",out.width="\\textwidth",out.height="0.7\\textheight",out.extra="keepaspectratio")
+opts_chunk$set(dev="cairo_pdf",out.width="\\textwidth",out.height="0.8\\textheight",out.extra="keepaspectratio")
opts_chunk$set(cache=TRUE, autodep=TRUE)
options(device = function(file, width = 8, height = 7, ...) {
cairo_pdf(tempfile(), width = width, height = height, ...)
\begin{columns}
\column{0.5\textwidth}
\begin{itemize}
+ \item Bug Statitics
\item Introduction to Debbugs
\item New features
- \item Tips and Tricks
\item Planned features
\item Places you can help
\end{itemize}
\end{frame}
\begin{frame}
+ \begin{columns}
+ \column{0.5\textwidth}
\begin{center}
<<bugs.filed,fig=TRUE,echo=FALSE,warning=FALSE>>=
print(ggplot(bug.growth[bug.growth$date > as.POSIXct(ISOdatetime(2013,1,1,0,0,0)),],aes(x=date,y=bugs))+
ggtitle("Christian Perrier's Plot"))
bugs.filed.per.day <-
lm(bugs~date,bug.growth)$coeff[2]*3600*24
+temp.lm <- lm(date~bugs,bug.growth[bug.growth$date > as.POSIXct(ISOdatetime(2013,1,1,0,0,0)),])
+bug.760000 <-
+ as.POSIXct(ISOdatetime(1970,1,1,0,0,0)+as.numeric(predict(temp.lm,data.frame(bugs=760000,date=NA))))
+bug.800000 <-
+ as.POSIXct(ISOdatetime(1970,1,1,0,0,0)+as.numeric(predict(temp.lm,data.frame(bugs=800000,date=NA))))
@
\end{center}
-Roughly \Sexpr{format(bugs.filed.per.day,digits=1)} bugs are filed per day.
+\column{0.5\textwidth}
+Roughly \Sexpr{format(bugs.filed.per.day,digits=1)} bugs are filed per
+day. The 760000th bug will be filed at \Sexpr{bug.760000}, and the
+800000th bug will be filed at \Sexpr{bug.800000}.
+\end{columns}
\end{frame}
# bug.closed.ts <- ts(bug.closed.series[,1],start=1,frequency=7)
print(ggplot(bug.closed.series[bug.closed.series$date > as.POSIXct(ISOdatetime(2008,1,1,0,0,0)),],
- aes(x=date,y=archived.bugs))+geom_line()+stat_smooth(method="lm")+
- ylab("Archived bugs")+xlab("Time"))
+ aes(x=date,y=archived.bugs/7))+geom_line()+stat_smooth(method="lm")+
+ ylab("Bugs archived Per Day")+xlab("Time"))
bugs.closed.per.day <-
sum(bug.closed.series$archived.bugs)/
as.numeric(bug.closed.series$date[nrow(bug.closed.series)]-bug.closed.series$date[1])
\subsection{RC Bugs}
\begin{frame}
\begin{center}
-<<rc.bugs,fig=TRUE,echo=FALSE,width=7,height=7>>=
+<<rc.bugs,fig=TRUE,echo=FALSE>>=
rc.bugs <-
read.table(file="data/rc_bugs.txt",
header=TRUE,fill=TRUE)
,aes(x=date,y=value,color=variable))+
geom_line()+
ggtitle("RC Bugs in the past year")+
+ ylab("RC Bugs")+xlab("Time")+
theme(legend.position=c(0.9,0.5))+
guides(color=guide_legend(title="Measure")))