From a0563054566ffea7fe88e63d28962d8d9ee67859 Mon Sep 17 00:00:00 2001 From: taivop Date: Mon, 5 Dec 2016 12:52:49 +0100 Subject: [PATCH] critical bug also in exp1 and exp3 --- scripts/r/exp1_summary.r | 4 ++-- scripts/r/exp3_summary.r | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/r/exp1_summary.r b/scripts/r/exp1_summary.r index d5258ed..b0bdb95 100644 --- 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 index 4d58b4a..8c28e4a 100644 --- 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)