deletions | additions       diff --git a/data/common.R b/data/common.R  index 3dddd1c..dcd515a 100644  --- a/data/common.R  +++ b/data/common.R 
...
return(d)  }  num <- function(var)as.numeric(var)  as.continuous <- function(var)  as.numeric(as.character(var)) save <- function(g, name=FILE_BASE, file=sprintf("%s/%s.pdf",FILE_DIR,name), w=3.3, h=3.1) {  ggsave(plot=g, filename=file, width=w, height=h)  diff --git a/data/plot.R b/data/plot.R  index 234b210..f78585b 100755  --- a/data/plot.R  +++ b/data/plot.R 
...
)  d$abort_rate <- d$txn_failed / (d$txn_count + d$txn_failed)  d$throughput <- d$txn_count * as.numeric(d$nclients) num(d$nclients) / d$total_time  # d$throughput <- d$ntxns * num(d$nclients)  / d$total_time d$avg_latency_ms <- d$txn_time / d$txn_count * 1000  common_layers <- list(theme_mine 
...
d.m$variable,  function(s) gsub('retwis_(\\w+)_retries','\\1', s))  )  d.m$retries <- d.m$values num(d.m$value)  * num(d.m$nclients) save(  ggplot(d.m, aes(