diff --git a/newproto.R b/newproto.R
index d3fff6c21b060144230a74f24cfe7e6ad550ffad..0ea0805fc9424bd7d827e5db2c82d4aa8bdc5019 100644
--- a/newproto.R
+++ b/newproto.R
@@ -10,21 +10,21 @@ theme(axis.title.y=element_text(vjust=0.9),
   axis.ticks.x=element_blank())
 
 
-read.table("newproto.csv", header=T,  sep=",", stringsAsFactors=F, na.strings=c("-1", "")) -> dd3
+read.table("11.csv", header=T,  sep=",", stringsAsFactors=F, na.strings=c("-1", "")) %>% filter(db=="netcat") -> dd3
 
 
+dd3 %>% filter(bin_chunksize==100000, tuple > 1000) %>% group_by(system, tuple) %>% summarise_each(funs(mean,sd,se=sd(.)/sqrt(n()))) -> dd4
 
-ggplot(dd3 %>% filter(bin_chunksize==100000, tuple > 1000, run == 0), aes(color=system, y=time, x=tuple)) + geom_line(size=1.5) + geom_point(size=2) + scale_x_log10() + scale_y_log10()
+ggplot(dd4 , aes(color=system, y=time_mean, x=tuple)) + geom_line(size=1.5) + geom_point(size=2) + scale_x_log10() + scale_y_log10()
 
 
 
 
 
-ggplot(dd3 %>% filter(bin_chunksize==100000, tuple > 1000, run == 0), aes(fill=system, y=bytes, x=tuple)) + scale_x_log10() +  geom_bar(stat="identity", position="dodge") 
+ggplot(dd4, aes(fill=system, y=bytes_mean, x=tuple)) + scale_x_log10() +  geom_bar(stat="identity", position="dodge") 
 
 
 
-read.table("newproto2.csv", header=T,  sep=",", stringsAsFactors=F, na.strings=c("-1", "")) -> dd3
 
 dd3 %>% filter(bin_compress %in% c("lz4", NA, "snappy"), tuple ==  1000000) %>% group_by( bin_orientation, bin_compress,bin_chunksize) %>% summarise_each(funs(mean,sd,se=sd(.)/sqrt(n()))) %>% mutate(sys2=paste( bin_orientation, bin_compress)) -> df4