-<<bugs.closed,fig=TRUE,echo=FALSE,width=7,height=5>>=
-bug.closed.series <- read.table("data/bug_closed_time_series.txt")
-bug.closed.ts <- ts(bug.closed.series,start=1,frequency=7)
-plot(bug.closed.ts,xlab="Weeks since 2008",ylab="Bugs archived per week",main="Bug closure rate over time")
-lines(loess.smooth(1:NROW(bug.closed.ts),bug.closed.ts),col="red",lwd=2)
-bugs.closed.per.day <- mean(bug.closed.ts)
+<<bugs.closed,fig=TRUE,echo=FALSE,width=7,height=5,warning=FALSE,error=FALSE>>=
+bug.closed.series <- read.table(file="data/bug_closed_time_series.txt")
+colnames(bug.closed.series) <- c("archived.bugs","year.week")
+bug.closed.series$week <-
+ gsub("(\\d+)-(\\d+)","\\2",bug.closed.series$year.week)
+bug.closed.series$year <-
+ gsub("(\\d+)-(\\d+)","\\1",bug.closed.series$year.week)
+bug.closed.series$doy <-
+ as.numeric(bug.closed.series$week)*7
+bug.closed.series$year.doy <-
+ paste(sep="-",bug.closed.series$year,bug.closed.series$doy)
+bug.closed.series$date <-
+ as.POSIXct(strptime(bug.closed.series$year.doy,
+ format="%Y-%j"))
+
+# 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"))
+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])