+++ /dev/null
-library("ggplot2")
-library("sitools")
-
-kb <- function(x) { f2si(x * 1000) }
-
-data <- read.table("bench", header=TRUE, sep=" ", colClasses=c("character", "character", "character", "numeric", "numeric"))
-
-ggplot(data = data, aes(x = Version, y = Time)) +
- geom_point() +
- scale_x_discrete(limits=data$Version) +
- facet_wrap(~ Target)
-
-ggplot(data = data, aes(x = Version, y = Memory)) +
- geom_point() +
- scale_x_discrete(limits=data$Version) +
- scale_y_continuous(labels = kb) +
- facet_wrap(~ Target)
-