[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]

[or-cvs] [ernie/master 3/3] No need to cut off the last day of data.



Author: Karsten Loesing <karsten.loesing@xxxxxxx>
Date: Thu, 11 Mar 2010 21:58:05 +0100
Subject: No need to cut off the last day of data.
Commit: e3f638d6eb5e957137e9059b4df88622c6bf3475

---
 R/dirreq-stats.R |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/dirreq-stats.R b/R/dirreq-stats.R
index 8db147c..796f463 100644
--- a/R/dirreq-stats.R
+++ b/R/dirreq-stats.R
@@ -7,12 +7,12 @@ moria1Sub <- subset(dirreq,
   directory %in% "9695DFC35FFEB861329B9F1AB04C46397020CE31")
 moria1 <- data.frame(date = moria1Sub$date,
   moria1Sub[3:(length(moria1Sub) - 1)] * 6)
-moria1 <- moria1[1:length(moria1$date)-1,]
+moria1 <- moria1[1:length(moria1$date),]
 trustedSub <- subset(dirreq,
   directory %in% "8522EB98C91496E80EC238E732594D1509158E77")
 trusted <- data.frame(date = trustedSub$date,
   floor(trustedSub[3:(length(trustedSub) - 1)] / trustedSub$share * 10))
-trusted <- trusted[1:length(trusted$date)-1,]
+trusted <- trusted[1:length(trusted$date),]
 
 write.csv(moria1, "website/csv/new-users.csv", quote = FALSE,
   row.names = FALSE)
-- 
1.6.5