X-Git-Url: https://git.donarmstrong.com/?p=don.git;a=blobdiff_plain;f=posts%2Fbug_reporting_rate.mdwn;h=8d21da6a2465df450fd775bef857479f1cc74a0c;hp=d947678b62b41d3a6dab04d1b80f95e395f5d823;hb=6bed388d1230194b1281a44318b50a4cb07fa8d0;hpb=c74934c0400f3568f5608ea17521407555195727

diff --git a/posts/bug_reporting_rate.mdwn b/posts/bug_reporting_rate.mdwn
index d947678..8d21da6 100644
--- a/posts/bug_reporting_rate.mdwn
+++ b/posts/bug_reporting_rate.mdwn
@@ -13,15 +13,10 @@ plot this, lets only look at bugs ending in 00:
 
 
 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.]
+[For clarity, I'm not showing the R code, but it's available in the source code for this post.]
 
-[[!sweavealike fig=0 echo=0 code="""
-print(getwd())
-"""]
-
-[[!sweavealike fig=1 echo=0 code="""
+[[!sweavealike width=800 fig=1 echo=0 results="hide" code="""
 require(lattice)
-print(getwd())
 reporting.rate <- read.table("data/bug_reporting_rate.txt")
 colnames(reporting.rate) <- c("bug","epoch")
 reporting.rate <- data.frame(reporting.rate)
@@ -37,7 +32,7 @@ print(xyplot(rate~day,reporting.rate[reporting.rate$epoch >= 1041408000,],
        panel=function(x,y,col,...){
 	     panel.xyplot(x,y,col="cyan",...);
 		 panel.loess(x,y,col="red",...);},
-      ylim=c(0,0.005),
+      ylim=c(0,0.004),
 	  ylab="Bugs per Second",
 	  xlab="Time"))
 """]]