critical bug also in exp1 and exp3

taivop · Dec 5, 2016 · a056305 · a056305
1 parent fbef966
commit a056305
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/scripts/r/exp1_summary.r b/scripts/r/exp1_summary.r
@@ -89,8 +89,8 @@ normalise_request_log_df <- function(df) {
   DROP_TIMES_BEFORE = first_get_request_time + 2 * 60 * 1000
   DROP_TIMES_AFTER = last_get_request_time - 2 * 60 * 1000
 
-  df2 <- df2 %>% filter(timeCreated > first_get_request_time &
-                          timeCreated >= DROP_TIMES_AFTER)
+  df2 <- df2 %>% filter(timeCreated > DROP_TIMES_BEFORE &
+                          timeCreated <= DROP_TIMES_AFTER)
   return(df2)
 }
 

diff --git a/scripts/r/exp3_summary.r b/scripts/r/exp3_summary.r
@@ -100,8 +100,8 @@ normalise_request_log_df <- function(df) {
   DROP_TIMES_BEFORE = first_request_time + 2 * 60 * 1000
   DROP_TIMES_AFTER = last_request_time - 2 * 60 * 1000
 
-  df2 <- df2 %>% filter(timeCreated > first_request_time &
-                          timeCreated >= DROP_TIMES_AFTER) %>%
+  df2 <- df2 %>% filter(timeCreated > DROP_TIMES_BEFORE &
+                          timeCreated <= DROP_TIMES_AFTER) %>%
     select(-timeCreated, -timeEnqueued, -timeDequeued, -timeForwarded,
            -timeReceived, -timeReturned)
   return(df2)