> rawdata <- read.table("data.cvs", sep=",", header=T)
> diffabs.dist <- dist(rawdata$DiffAbs)
> timetog.dist <- dist(rawdata$TimesTog)
> mantel.rtest(diffabs.dist, timetog.dist, nrepet = 9999)
Monte-Carlo test
Observation: 0.002972999 
Call: mantel.rtest(m1 = diffabs.dist, m2 = timetog.dist, nrepet = 9999)
Based on 9999 replicates
Simulated p-value: 0.4241 