\end{center}
\end{frame}
-\begin{frame}{Bug Growth Rate}
+\begin{frame}[fragile]{Bug Growth Rate}
<<bug_growth_rate,echo=FALSE>>=
print(ggplot(bug.growth[date > as.POSIXct(ISOdatetime(2014,1,1,0,0,0)),],
aes(x=date,y=`bugs per day`))+
@
\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}