Permalink
Browse files

Add script to produce lap time histogram

  • Loading branch information...
1 parent 30eeca1 commit 05d01604a514186a3eeeba4f4a9323f84f75ee60 @jaspervdj jaspervdj committed Apr 25, 2012
Showing with 12 additions and 0 deletions.
  1. +12 −0 tools/histogram.r
View
12 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()

0 comments on commit 05d0160

Please sign in to comment.