Add script to produce lap time histogram

12urenloop · Apr 25, 2012 · 05d0160 · 05d0160
1 parent 30eeca1
commit 05d0160
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tools/histogram.r 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()