fix typo in a figure label

diff --git a/analysis.R b/analysis.R
index 6d3d2d2d26cc2b293a5ca6f4fda24762564441f1..1f68d5bc1ac78eb6486fdac52734ba1232ee5b91 100644 (file)
--- a/analysis.R
+++ b/analysis.R
@@ -78,7 +78,7 @@ dev.off()
 #######################################################
 
 prop.data <- rbind(cbind(google.by.week(d), subset="All Email"),
 #######################################################
 
 prop.data <- rbind(cbind(google.by.week(d), subset="All Email"),

-                   cbind(google.by.week(d[d$replied]), subset="Emails with Replies"))
+                   cbind(google.by.week(d[d$replied]), subset="Email with Replies"))

 
 
 pdf(file="emails_gmail_prop_over_time.pdf", width=10, height=8)
 
 
 pdf(file="emails_gmail_prop_over_time.pdf", width=10, height=8)