#!/usr/bin/env r
library(lattice)
pre <- read.csv(file="pre/results.txt",dec=".",sep=";")
post <- read.csv(file="post/results.txt",dec=".",sep=";")
pre$cat <- "pre"
post$cat <- "post"
measurements <- data.frame(Total.time=c(pre$Total.time,post$Total.time), Measurement=factor(c(pre$cat,post$cat), levels=c("post", "pre")))
test <- t.test(measurements$Total.time ~ measurements$Measurement, paired=F)
# postscript(, paper="special", family = "ComputerModern")
# boxplot(measurements$Total.time ~ measurements$Measurement, horizontal=T, col="pink", axes=F, lwd=1, notch=F, boxwex=0.4, main="Response time measurements using curl (lower is better)", xlab="response time [s]", ylab="pre/post patch")

trellis.device(postscript,file="prepost.ps", width=8, height=3, paper="special", horizontal=F)
bwplot(measurements$Measurement ~ measurements$Total.time, xlab="response time [s]", ylab="pre/post patch")
# axis(side=2, at=c(1:2), labels=c("post", "pre"), cex.axis=0.9)
# axis(side=1, at=seq(0,0.5,0.1), labels=T, cex.axis=0.9)
# rug(measurements$Total.time)
dev.off()