From 05d01604a514186a3eeeba4f4a9323f84f75ee60 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Wed, 25 Apr 2012 18:42:13 +0200
Subject: [PATCH] Add script to produce lap time histogram

---
 tools/histogram.r | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tools/histogram.r

diff --git a/tools/histogram.r b/tools/histogram.r
new file mode 100644
index 0000000..72cd945
--- /dev/null
+++ b/tools/histogram.r
@@ -0,0 +1,12 @@
+# Script to produce a histogram of lap times
+lap_times <- read.csv('lap-times.csv', header = F)
+lap_times <- round(lap_times)
+
+print(lap_times)
+
+pdf(file = 'lap-times.pdf')
+
+hist(lap_times$V1, main = 'Lap time histogram',
+        xlab = 'Time (in s)', ylab = 'Frequency', col = 'lightblue')
+
+dev.off()