Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Add script to produce lap time histogram

  • Loading branch information...
commit 05d01604a514186a3eeeba4f4a9323f84f75ee60 1 parent 30eeca1
Jasper Van der Jeugt authored April 25, 2012

Showing 1 changed file with 12 additions and 0 deletions. Show diff stats Hide diff stats

  1. 12  tools/histogram.r
12  tools/histogram.r
... ...
@@ -0,0 +1,12 @@
  1
+# Script to produce a histogram of lap times
  2
+lap_times <- read.csv('lap-times.csv', header = F)
  3
+lap_times <- round(lap_times)
  4
+
  5
+print(lap_times)
  6
+
  7
+pdf(file = 'lap-times.pdf')
  8
+
  9
+hist(lap_times$V1, main = 'Lap time histogram',
  10
+        xlab = 'Time (in s)', ylab = 'Frequency', col = 'lightblue')
  11
+
  12
+dev.off()

0 notes on commit 05d0160

Please sign in to comment.
Something went wrong with that request. Please try again.