> rawdata <- read.table("~/Documents/subversion/concurrency/ITICSE 2015/stats_R/3_1/joined/data.csv", sep=",", header=T)
> diffabs.dist <- dist(rawdata$DiffAbs)
> timetog.dist <- dist(rawdata$TimesTog)


> library(ade4)
> mantel.rtest(diffabs.dist, timetog.dist, nrepet = 9999)
Monte-Carlo test
Observation: 0.3426844 
Call: mantel.rtest(m1 = diffabs.dist, m2 = timetog.dist, nrepet = 9999)
Based on 9999 replicates
Simulated p-value: 0.0288 
Warning messages:
1: In is.euclid(m1) : Zero distance(s)
2: In is.euclid(distmat) : Zero distance(s)

> plot(r1 <- mantel.rtest(diffabs.dist,timetog.dist), main = "Mantel's test")
Warning messages:
1: In is.euclid(m1) : Zero distance(s)
2: In is.euclid(distmat) : Zero distance(s)
3: In hist.default(sim, plot = FALSE, nclass = nclass, xlim = xlim0) :
  argument ‘xlim’ is not made use of
