we also need lattice

diff --git a/posts/bug_reporting_rate.mdwn b/posts/bug_reporting_rate.mdwn
index da143ad269d2c972c83a9cd9b9df7699f961a451..4266c45253aaceb363439dbc32b185508af6fcf2 100644 (file)
--- a/posts/bug_reporting_rate.mdwn
+++ b/posts/bug_reporting_rate.mdwn
@@ -16,10 +16,11 @@ Now, lets get the data into R and plot it.
 [For clarity, I'm not showing the R code, but it's available in the source cdoe for this post.]
 
 [[!sweavealike results="hide" fig=1 echo=0 code="""
 [For clarity, I'm not showing the R code, but it's available in the source cdoe for this post.]
 
 [[!sweavealike results="hide" fig=1 echo=0 code="""

+require(lattice)

 reporting.rate <- read.table("data/bug_reporting_rate.txt")
 colnames(reporting.rate) <- c("bug","epoch")
 reporting.rate <- data.frame(reporting.rate)
 reporting.rate <- read.table("data/bug_reporting_rate.txt")
 colnames(reporting.rate) <- c("bug","epoch")
 reporting.rate <- data.frame(reporting.rate)

-reporting.rate$bug <- as.numeric(gsub("\\\\.report","",gsub(".*\\\\/","",reporting.rate$bug)))
+reporting.rate$bug <- as.numeric(gsub("\\.report","",gsub(".*\\/","",reporting.rate$bug)))

 reporting.rate <- reporting.rate[order(as.numeric(reporting.rate$bug)),]
 ### this is the number of bugs submitted per second
 ### however, for bug numbers less than about 100000, this number is wrong.
 reporting.rate <- reporting.rate[order(as.numeric(reporting.rate$bug)),]
 ### this is the number of bugs submitted per second
 ### however, for bug numbers less than about 100000, this number is wrong.