4 kb <- function(x) { f2si(x * 1000) }
6 data <- read.table("bench", header=TRUE, sep=" ", colClasses=c("character", "character", "character", "numeric", "numeric"))
8 ggplot(data = data, aes(x = Version, y = Time)) +
10 scale_x_discrete(limits=data$Version) +
13 ggplot(data = data, aes(x = Version, y = Memory)) +
15 scale_x_discrete(limits=data$Version) +
16 scale_y_continuous(labels = kb) +