From 3ed43e4bdbe8308608671f8e490d890f3c780a29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hannes=20M=C3=BChleisen?= <hannes@muehleisen.org>
Date: Sun, 6 Apr 2014 16:06:02 +0200
Subject: [PATCH] minor changes

---
 plot.R | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/plot.R b/plot.R
index 1f6adf2..a2e49ad 100644
--- a/plot.R
+++ b/plot.R
@@ -6,25 +6,21 @@ library(plyr)
 setwd("~/Desktop/compare/")
 
 textsize <- 16
-cBrwPl <- "Set1"
 theme <- theme_few(base_size = textsize) + 
 theme(axis.text.x = element_text(angle = 90, hjust = 1),
-	 # text=element_text(family="serif"),
 	  legend.title=element_blank(),
 	  legend.position=c(0.85,0.08))
 
-
 compare <- read.table("results.tsv",sep="\t",na.strings="")
 names(compare) <- c ("db","dbver","bmark","sf","phase","q","rep","time")
 
+# we have a 30 min time limit, so everything over that is a fail
+compare[compare$time>1800,]$time <- NA
+
 levels(compare$db) <- c("Citusdata","MonetDB","PostgreSQL")
 compare$db <- ordered(compare$db,levels=c("PostgreSQL","Citusdata","MonetDB"))
 levels(compare$q) <- toupper(levels(compare$q))
 
-#                      title="Query Speed (Hot)",subtitle="TPC-H SF5 (5.2 GB)"),
-#                      title="Query Speed (Hot)",subtitle="TPC-H SF10 (11 GB)"))
-
-
 tpcplot <- function(data,filename="out.pdf",sf=1,phase="hotruns",queries=levels(data$q),width=8,ylimit=100,main="",sub="") {
   pdata <- ddply(data[which(data$sf == as.character(sf) & data$phase==as.character(phase)),], 
                  c("db", "q"), summarise, avgtime = mean(time),
-- 
GitLab