synapse 0.2.1 → 0.8.0

data/synapse.gemspec

@@ -15,10 +15,9 @@ Gem::Specification.new do |gem|
   gem.files         = `git ls-files`.split($/)
   gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
   gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
-  gem.require_paths = ["lib"]
 
-  gem.add_runtime_dependency "zk", "~> 1.7.4"
-  gem.add_runtime_dependency "thrift", "~> 0.9.0"
+  gem.add_runtime_dependency "zk", "~> 1.9.2"
+  gem.add_runtime_dependency "docker-api", "~> 1.7.2"
 
   gem.add_development_dependency "rspec"
   gem.add_development_dependency "pry"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: synapse
 version: !ruby/object:Gem::Version
-  version: 0.2.1
+  version: 0.8.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-10-24 00:00:00.000000000 Z
+date: 2014-01-27 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: zk
@@ -18,7 +18,7 @@ dependencies:
     requirements:
     - - ~>
       - !ruby/object:Gem::Version
-        version: 1.7.4
+        version: 1.9.2
   type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
@@ -26,15 +26,15 @@ dependencies:
     requirements:
     - - ~>
       - !ruby/object:Gem::Version
-        version: 1.7.4
+        version: 1.9.2
 - !ruby/object:Gem::Dependency
-  name: thrift
+  name: docker-api
   requirement: !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
       - !ruby/object:Gem::Version
-        version: 0.9.0
+        version: 1.7.2
   type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
@@ -42,7 +42,7 @@ dependencies:
     requirements:
     - - ~>
       - !ruby/object:Gem::Version
-        version: 0.9.0
+        version: 1.7.2
 - !ruby/object:Gem::Dependency
   name: rspec
   requirement: !ruby/object:Gem::Requirement
@@ -100,37 +100,28 @@ extensions: []
 extra_rdoc_files: []
 files:
 - .gitignore
+- .mailmap
 - .rspec
 - Gemfile
 - Gemfile.lock
 - LICENSE.txt
+- Makefile
 - README.md
 - Rakefile
-- Vagrantfile
 - bin/synapse
-- chef/converge
-- chef/cookbooks/lxc/recipes/default.rb
-- chef/cookbooks/synapse/attributes/default.rb
-- chef/cookbooks/synapse/recipes/default.rb
-- chef/run.json
-- chef/run.rb
-- client/.RData
-- client/.Rhistory
-- client/bench_rewrite_config.dat
-- client/benchmark-client.iml
-- client/pom.xml
-- client/src/main/java/ClientArsch.java
-- client/src/main/java/META-INF/MANIFEST.MF
+- config/hostheader_test.json
+- config/svcdir_test.json
 - config/synapse.conf.json
-- haproxy.pid
-- lib/gen-rb/endpoint_types.rb
-- lib/gen-rb/thrift.rb
+- config/synapse_services/service1.json
+- config/synapse_services/service2.json
 - lib/synapse.rb
 - lib/synapse/base.rb
 - lib/synapse/haproxy.rb
+- lib/synapse/log.rb
 - lib/synapse/service_watcher.rb
 - lib/synapse/service_watcher/base.rb
 - lib/synapse/service_watcher/dns.rb
+- lib/synapse/service_watcher/docker.rb
 - lib/synapse/service_watcher/ec2tag.rb
 - lib/synapse/service_watcher/zookeeper.rb
 - lib/synapse/version.rb
@@ -139,7 +130,6 @@ files:
 - spec/support/config.rb
 - spec/support/minimum.conf.yaml
 - synapse.gemspec
-- test.sh
 homepage: ''
 licenses: []
 post_install_message: 

data/Vagrantfile

@@ -1,112 +0,0 @@
-# -*- mode: ruby -*-
-# vi: set ft=ruby :
-
-this_dir = File.dirname(File.expand_path __FILE__)
-
-Vagrant::Config.run do |config|
-  # All Vagrant configuration is done here. The most common configuration
-  # options are documented and commented below. For a complete reference,
-  # please see the online documentation at vagrantup.com.
-
-  # Every Vagrant virtual environment requires a box to build off of.
-  config.vm.box = "precise64"
-
-  # The url from where the 'config.vm.box' box will be fetched if it
-  # doesn't already exist on the user's system.
-  # config.vm.box_url = "http://domain.com/path/to/above.box"
-
-  config.vm.box_url = 'http://files.vagrantup.com/precise64.box'
-
-  # Boot with a GUI so you can see the screen. (Default is headless)
-  # config.vm.boot_mode = :gui
-
-  # Assign this VM to a host-only network IP, allowing you to access it
-  # via the IP. Host-only networks can talk to the host machine as well as
-  # any other machines on the same network, but cannot be accessed (through this
-  # network interface) by any external networks.
-  # config.vm.network :hostonly, "192.168.33.10"
-
-  # Assign this VM to a bridged network, allowing you to connect directly to a
-  # network using the host's network device. This makes the VM appear as another
-  # physical device on your network.
-  # config.vm.network :bridged
-
-  # Forward a port from the guest to the host, which allows for outside
-  # computers to access the VM, whereas host only networking does not.
-  # config.vm.forward_port 80, 8080
-
-  # Share an additional folder to the guest VM. The first argument is
-  # an identifier, the second is the path on the guest to mount the
-  # folder, and the third is the path on the host to the actual folder.
-  # config.vm.share_folder "v-data", "/vagrant_data", "../data"
-
-  config.vm.share_folder 'this_dir', '/this_dir', this_dir
-
-  # Enable provisioning with Puppet stand alone.  Puppet manifests
-  # are contained in a directory path relative to this Vagrantfile.
-  # You will need to create the manifests directory and a manifest in
-  # the file base.pp in the manifests_path directory.
-  #
-  # An example Puppet manifest to provision the message of the day:
-  #
-  # # group { "puppet":
-  # #   ensure => "present",
-  # # }
-  # #
-  # # File { owner => 0, group => 0, mode => 0644 }
-  # #
-  # # file { '/etc/motd':
-  # #   content => "Welcome to your Vagrant-built virtual machine!
-  # #               Managed by Puppet.\n"
-  # # }
-  #
-  # config.vm.provision :puppet do |puppet|
-  #   puppet.manifests_path = "manifests"
-  #   puppet.manifest_file  = "base.pp"
-  # end
-
-  # Enable provisioning with chef solo, specifying a cookbooks path, roles
-  # path, and data_bags path (all relative to this Vagrantfile), and adding 
-  # some recipes and/or roles.
-  #
-  config.vm.provision :chef_solo do |chef|
-    # chef.cookbooks_path = "../my-recipes/cookbooks"
-    # chef.roles_path = "../my-recipes/roles"
-    # chef.data_bags_path = "../my-recipes/data_bags"
-    # chef.add_recipe "mysql"
-    # chef.add_role "web"
-  
-    # You may also specify custom JSON attributes:
-    # chef.json = { :mysql_password => "foo" }
-
-    chef.cookbooks_path = File.join(this_dir, "chef/cookbooks")
-    chef.add_recipe "synapse"
-  end
-
-  # Enable provisioning with chef server, specifying the chef server URL,
-  # and the path to the validation key (relative to this Vagrantfile).
-  #
-  # The Opscode Platform uses HTTPS. Substitute your organization for
-  # ORGNAME in the URL and validation key.
-  #
-  # If you have your own Chef Server, use the appropriate URL, which may be
-  # HTTP instead of HTTPS depending on your configuration. Also change the
-  # validation key to validation.pem.
-  #
-  # config.vm.provision :chef_client do |chef|
-  #   chef.chef_server_url = "https://api.opscode.com/organizations/ORGNAME"
-  #   chef.validation_key_path = "ORGNAME-validator.pem"
-  # end
-  #
-  # If you're using the Opscode platform, your validator client is
-  # ORGNAME-validator, replacing ORGNAME with your organization name.
-  #
-  # IF you have your own Chef Server, the default validation client name is
-  # chef-validator, unless you changed the configuration.
-  #
-  #   chef.validation_client_name = "ORGNAME-validator"
-
-  Vagrant::Config.run do |config|
-    config.vm.provision :shell, :path => "test.sh"
-  end
-end

data/chef/converge

@@ -1,4 +0,0 @@
-#!/bin/bash -e
-
-cd `dirname $0`
-sudo /opt/vagrant_ruby/bin/chef-solo -c run.rb -j run.json

data/chef/cookbooks/lxc/recipes/default.rb

@@ -1,2 +0,0 @@
-package 'lxc'
-

data/chef/cookbooks/synapse/attributes/default.rb

@@ -1 +0,0 @@
-default.synapse.dir = '/opt/synapse'

data/chef/cookbooks/synapse/recipes/default.rb

@@ -1,6 +0,0 @@
-package 'haproxy'
-gem_package 'bundler'
-
-directory node.synapse.dir do 
-  recursive true
-end

data/chef/run.json

@@ -1,8 +0,0 @@
-{
-  "run_list": [
-    "recipe[synapse]"
-  ],
-  "synapse": {
-  }
-}
-

data/chef/run.rb

@@ -1,2 +0,0 @@
-this_dir = File.dirname(File.expand_path __FILE__)
-cookbook_path File.join(this_dir,'cookbooks')

data/client/.Rhistory

@@ -1,294 +0,0 @@
-plot(accepted_denied$x, accepted_denied$y.y / (accepted_denied$y.x + accepted_denied$y.y), type="l", col="blue", xlab="Impressions", ylab="N_denied / N_accepted", main="Denied / accepted ratio")
-library(ggplot2)
-# Search radius (25mi is the default)
-R <- 25.0
-# Blended sort radius, based on bbox
-BLENDED_R <- 16.39
-# Distance is counted in increments of 0.1mi (old code)
-MILES_INCR <- 0.1
-# Take n samples
-RESO_SAMPLES <- 50
-# Or top n by rank
-RANK_TOP_N <- 50
-sf <- subset(read.table("in/sf_points_rank.2012-03-06.csv", sep="\t", header=TRUE), !duplicated(rank))
-resos <- read.table("in/resos_3months_out.2012-03-07.csv", sep=",", header=TRUE)
-sf_resos <- merge(sf, resos, by="hosting_id")
-# Take random samples
-sf_resos <- sf_resos[sample(1:nrow(sf_resos), RESO_SAMPLES, replace=FALSE),]
-# Take top n
-# sf_resos <- subset(sf_resos, rank > 0 & rank <= RANK_TOP_N)
-## Additonal values
-sf_resos$d_R <- sf_resos$distance / R
-sf_resos$o_1 <- sf_resos$nights_1month / 31
-sf_resos$o_2 <- sf_resos$nights_2month / 62
-sf_resos$o_3 <- sf_resos$nights_3month / 93
-for (i in 1:nrow(sf_resos)) {
-# Make log work. < 1 point are all treated as equally bad
-if (sf_resos$points[i] < 1) {
-sf_resos$log_p[i] = 0.0
-}
-else {
-sf_resos$log_p[i] <- log10(sf_resos$points[i])
-}
-}
-# Weights
-W_p <- 0.3 # Note: points aren't normalized. The max is around 2000, so 0.3 * log10() gives just under 1.0
-W_d <- -0.6
-W_o <- -0.2
-sf_resos$weighted_points <- W_p * sf_resos$log_p
-sf_resos$weighted_distance <- W_d * sf_resos$d_R
-sf_resos$weighted_occupancy <- W_o * sf_resos$o_1
-sf_resos$rank2 <- sf_resos$weighted_points + sf_resos$weighted_distance + sf_resos$weighted_occupancy
-# min <- min(sf_resos$rank2)
-# sf_resos$rank2 <- sf_resos$rank2 - min
-MAX_POINTS <- max(sf$points)
-## normalize
-graph_rank <- sf_resos$rank2
-d_R <- data.frame(metric=factor("d_R"), rank=factor(graph_rank), value=sf_resos$distance / R)
-o_1 <- data.frame(metric=factor("o_1"), rank=factor(graph_rank), value=sf_resos$nights_1month / 31)
-o_2 <- data.frame(metric=factor("o_2"), rank=factor(graph_rank), value=sf_resos$nights_2month / 62)
-o_3 <- data.frame(metric=factor("o_3"), rank=factor(graph_rank), value=sf_resos$nights_3month / 93)
-weighted_points <- data.frame(metric=factor("weighted_points"), rank=factor(graph_rank), value=sf_resos$weighted_points)
-weighted_distance <- data.frame(metric=factor("weighted_distance"), rank=factor(graph_rank), value=sf_resos$weighted_distance)
-weighted_occupancy <- data.frame(metric=factor("weighted_occupancy"), rank=factor(graph_rank), value=sf_resos$weighted_occupancy)
-# TODO there should be a better way
-old_points <- data.frame(metric=factor("old_points"), rank=factor(graph_rank), value=sf_resos$points)
-old_blended <- data.frame(metric=factor("old_blended"), rank=factor(graph_rank), value=sf_resos$points)
-old_distance <- data.frame(metric=factor("old_distance"), rank=factor(graph_rank), value=sf_resos$distance * 500)
-log_p <- data.frame(metric=factor("log_p"), rank=factor(graph_rank), value=sf_resos$points)
-for (i in 1:nrow(log_p)) {
-# Make log work. < 1 point are all treated as equally bad
-if (log_p$value[i] < 1) {
-log_p$value[i] = 0.0
-}
-else {
-log_p$value[i] <- log10(log_p$value[i])
-}
-# Old blended
-if (sf_resos$distance[i] < BLENDED_R) {
-old_blended$value[i] = sf_resos$points[i]
-}
-else {
-old_blended$value[i] = log10(sf_resos$points[i] / sf_resos$distance[i])
-}
-}
-rank_data <- rbind(d_R, log_p, o_1, o_2, o_3)
-## end normalize
-old_rank_data <- rbind(old_blended, old_distance)
-# ggplot(data=old_rank_data, aes(x=rank, y=value, fill=metric)) + geom_bar(position=position_dodge())
-new_rank_data <- rbind(weighted_points, weighted_distance, weighted_occupancy)
-filename <- sprintf("out/weighted_blend_components_W_p=%f_W_d=%f_W_o=%f.pdf", W_p, W_d, W_o)
-pdf(filename)
-ggplot(data=new_rank_data, aes(x=rank, y=value, fill=metric)) + geom_bar(position=position_dodge())
-# ggplot(data=rank_data, aes(x=rank, y=value, fill=metric)) + geom_bar()
-library(ggplot2)
-# Search radius (25mi is the default)
-R <- 25.0
-# Blended sort radius, based on bbox
-BLENDED_R <- 16.39
-# Distance is counted in increments of 0.1mi (old code)
-MILES_INCR <- 0.1
-# Take n samples
-RESO_SAMPLES <- 50
-# Or top n by rank
-RANK_TOP_N <- 50
-sf <- subset(read.table("in/sf_points_rank.2012-03-06.csv", sep="\t", header=TRUE), !duplicated(rank))
-resos <- read.table("in/resos_3months_out.2012-03-07.csv", sep=",", header=TRUE)
-sf_resos <- merge(sf, resos, by="hosting_id")
-# Take random samples
-sf_resos <- sf_resos[sample(1:nrow(sf_resos), RESO_SAMPLES, replace=FALSE),]
-# Take top n
-# sf_resos <- subset(sf_resos, rank > 0 & rank <= RANK_TOP_N)
-## Additonal values
-sf_resos$d_R <- sf_resos$distance / R
-sf_resos$o_1 <- sf_resos$nights_1month / 31
-sf_resos$o_2 <- sf_resos$nights_2month / 62
-sf_resos$o_3 <- sf_resos$nights_3month / 93
-for (i in 1:nrow(sf_resos)) {
-# Make log work. < 1 point are all treated as equally bad
-if (sf_resos$points[i] < 1) {
-sf_resos$log_p[i] = 0.0
-}
-else {
-sf_resos$log_p[i] <- log10(sf_resos$points[i])
-}
-}
-# Weights
-W_p <- 0.3 # Note: points aren't normalized. The max is around 2000, so 0.3 * log10() gives just under 1.0
-W_d <- -0.6
-W_o <- -0.2
-sf_resos$weighted_points <- W_p * sf_resos$log_p
-sf_resos$weighted_distance <- W_d * sf_resos$d_R
-sf_resos$weighted_occupancy <- W_o * sf_resos$o_1
-sf_resos$rank2 <- sf_resos$weighted_points + sf_resos$weighted_distance + sf_resos$weighted_occupancy
-# min <- min(sf_resos$rank2)
-# sf_resos$rank2 <- sf_resos$rank2 - min
-MAX_POINTS <- max(sf$points)
-## normalize
-graph_rank <- sf_resos$rank2
-d_R <- data.frame(metric=factor("d_R"), rank=factor(graph_rank), value=sf_resos$distance / R)
-o_1 <- data.frame(metric=factor("o_1"), rank=factor(graph_rank), value=sf_resos$nights_1month / 31)
-o_2 <- data.frame(metric=factor("o_2"), rank=factor(graph_rank), value=sf_resos$nights_2month / 62)
-o_3 <- data.frame(metric=factor("o_3"), rank=factor(graph_rank), value=sf_resos$nights_3month / 93)
-weighted_points <- data.frame(metric=factor("weighted_points"), rank=factor(graph_rank), value=sf_resos$weighted_points)
-weighted_distance <- data.frame(metric=factor("weighted_distance"), rank=factor(graph_rank), value=sf_resos$weighted_distance)
-weighted_occupancy <- data.frame(metric=factor("weighted_occupancy"), rank=factor(graph_rank), value=sf_resos$weighted_occupancy)
-# TODO there should be a better way
-old_points <- data.frame(metric=factor("old_points"), rank=factor(graph_rank), value=sf_resos$points)
-old_blended <- data.frame(metric=factor("old_blended"), rank=factor(graph_rank), value=sf_resos$points)
-old_distance <- data.frame(metric=factor("old_distance"), rank=factor(graph_rank), value=sf_resos$distance * 500)
-log_p <- data.frame(metric=factor("log_p"), rank=factor(graph_rank), value=sf_resos$points)
-for (i in 1:nrow(log_p)) {
-# Make log work. < 1 point are all treated as equally bad
-if (log_p$value[i] < 1) {
-log_p$value[i] = 0.0
-}
-else {
-log_p$value[i] <- log10(log_p$value[i])
-}
-# Old blended
-if (sf_resos$distance[i] < BLENDED_R) {
-old_blended$value[i] = sf_resos$points[i]
-}
-else {
-old_blended$value[i] = log10(sf_resos$points[i] / sf_resos$distance[i])
-}
-}
-rank_data <- rbind(d_R, log_p, o_1, o_2, o_3)
-## end normalize
-old_rank_data <- rbind(old_blended, old_distance)
-# ggplot(data=old_rank_data, aes(x=rank, y=value, fill=metric)) + geom_bar(position=position_dodge())
-new_rank_data <- rbind(weighted_points, weighted_distance, weighted_occupancy)
-filename <- sprintf("out/weighted_blend_components_W_p=%f_W_d=%f_W_o=%f.pdf", W_p, W_d, W_o)
-pdf(filename)
-ggplot(data=new_rank_data, aes(x=rank, y=value, fill=metric)) + geom_bar(position=position_dodge())
-# ggplot(data=rank_data, aes(x=rank, y=value, fill=metric)) + geom_bar()
-install.packages('e1071')
-library("e1071")
-?svm
-data <- read.table("/Users/tobi/Projects/auto_pricing/data.csv")
-data <- read.table("/Users/tobi/Projects/auto_pricing/data.csv", sep=",")
-View(data)
-m <- svm(data$V7, data$V1)
-data <- read.table("/Users/tobi/Projects/auto_pricing/data.csv", sep=",", header=TRUE)
-View(data)
-m <- svm(data$country_state_city_neighborhood, data$price)
-m <- svm(as.factor(data$country_state_city_neighborhood), data$price)
-data_clean <- subset(data, !is.na(country_state_city_neighborhood))
-m <- svm(as.factor(data$square_feet, data$price)
-)
-m <- svm(data$square_feet, data$price)
-x <- seq(0.1, 5, by = 0.05)
-y <- log(x) + rnorm(x, sd = 0.2)
-fix(x)
-m <- svm(x, y)
-new <- predict(m, x)
-plot(x, y)
-points(x, log(x), col = 2)
-points(x, new, col = 4)
-X <- data.frame(a = rnorm(1000), b = rnorm(1000))
-attach(X)
-m <- svm(X)
-View(X)
-m <- svm(~a + b)
-predict(m, t(c(0, 0)))
-data <- read.table("/Users/tobi/Desktop/data.csv")
-data <- read.table("/Users/tobi/Desktop/data.csv", sep="\t")
-View(data)
-data <- read.table("/Users/tobi/Desktop/data.csv", sep=",")
-View(data)
-data <- read.table("/Users/tobi/Desktop/data.csv", sep=",", header=TRUE)
-View(data)
-data$0
-data$1
-data[1]
-data[0]
-data[2]
-plot(data[1], data[2])
-plot(data[2])
-plot(data[1], data[2])
-plot(data[1], data[3])
-library("ggplot2")
-qplot
-qplot(data[1], data[2])
-qplot(x=data[1], y=data[2])
-data <- read.table("/Users/tobi/Desktop/data.csv", sep=",", header=TRUE)
-plot(data)
-data <- read.table("/Users/tobi/Desktop/data.csv", sep=",", header=TRUE)
-library("ggplot2")
-qplot(date, fees, data=data)
-qplot(date, fees, data=data, geom=c("point", "smooth"))
-qplot(date, fees, data=data, geom=c("point", "smooth"), group=1)
-data2011 <- read.table("/Users/tobi/Desktop/data_2011.csv", sep=",", header=TRUE)
-View(data2011)
-qplot(date, fees, data=data2011, geom=c("point", "smooth"), group=1)
-qplot(date, fees, data=data, geom=c("point", "smooth"), group=1)
-qplot(date, fees, data=data2011, geom=c("point", "smooth"), group=1)
-qplot(date, fees, data=data, geom=c("point", "smooth"), group=1)
-data_all <- read.table("/Users/tobi/Desktop/data_all.csv", sep=",", header=TRUE)
-qplot(date, fees, data=data_all, geom=c("point", "smooth"), group=1)
-data_all <- read.table("/Users/tobi/Desktop/data_2011_present.csv", sep=",", header=TRUE)
-qplot(date, fees, data=data_all, geom=c("point", "smooth"), group=1)
-View(data_all)
-data_all <- read.table("/Users/tobi/Desktop/data_all.csv", sep=",", header=TRUE)
-qplot(date, fees, data=data_all, geom=c("point", "smooth"), group=1)
-library("ggplot2")
-data <- read.table("~/all_posts.csv")
-d <- read.tabl('statsd_data.txt')
-d <- read.table('statsd_data.txt')
-View(d)
-r <- signif(d, 2)
-View(r)
-f <- fft(r)
-f <- fft(r$V1)
-fix(f)
-plot(f)
-plot(r)
-describe(r)
-describe(r)
-summary(r)
-stddev(r)
-std(r)
-hist(r)
-hist(r$V1)
-hist(d$V1)
-hist(d$V1, breaks=10)
-hist(d$V1, breaks=30)
-hist(d$V1, breaks=20)
-hist(d$V1, breaks=50)
-hist(d$V1, breaks=60)
-hist(d$V1, breaks=100)
-hist(d$V1, breaks=50)
-summary(d$V1)
-setwd("~/Projects/service_router/client")
-data <- read.table("bench_rewrite_config.dat")
-View(data)
-library("ggplot2")
-qplot(data)
-qplot(data, V3, geom="line")
-qplot(V2, V3, data=data, geom="line")
-qplot(V2, V3, data=data, geom="line", facets=V1)
-qplot(V2, V3, data=data, geom="line", facets=data$V1)
-qplot(V2, V3, data=data, geom="line", facets=as.factor(V1))
-qplot(V2, V3, data=data, geom="line", facets=as.factor(data$V1))
-qplot(V2, V3, data=data, geom="line", facets=as.factor(V1) ~ .)
-qplot(V2, V3, data=data, geom="line", facets=V1 ~ .)
-qplot(V2, V3, data=data, geom="line", colour=V1 ~ .)
-qplot(V2, V3, data=data, geom="line", colour=V1)
-qplot(V2, V3, data=data, geom="line", colour=V1, ylim=c(0, 9999))
-qplot(V2, V3, data=data, geom="line", colour=V1, ylim=c(999, 9999))
-qplot(V2, V3, data=data, geom="line", colour=V1, ylim=c(1000, 6000))
-qplot(V2, V3, data=data, geom="line", colour=V1, ylim=c(1000, 5000))
-qplot(V2, V3, data=data, geom="line", colour=as.factor(V1), ylim=c(1000, 5000))
-qplot(V2, V3, data=data, colour=as.factor(V1), ylim=c(1000, 5000))
-data <- read.table("bench_rewrite_config.dat")
-qplot(V2, V3, data=data, colour=as.factor(V1), ylim=c(1000, 5000))
-qplot(V2, V3, data=data, colour=as.factor(V1))
-qplot(V2, V3, data=data[10:], colour=as.factor(V1))
-qplot(V2, V3, data=data[10], colour=as.factor(V1))
-qplot(V2, V3, data=data[10], colour=as.factor(V1))
-qplot(V2, V3, data=data, colour=as.factor(V1), ylim=c(1000, 25000))
-qplot(V2, V3, data=data, colour=as.factor(V1), ylim=c(1000, 20000))
-data <- read.table("bench_rewrite_config.dat")
-qplot(V2, V3, data=data, colour=as.factor(V1), ylim=c(1000, 20000))
-qplot(V2, V3, data=data, colour=as.factor(V1), ylim=c(1000, 20000))