Merge pull request #142 from pparkkin/master

slfritchie · slfritchie · commit 042e8ea009ea · 2014-10-17T15:09:05.000+09:00
Ensure values are read in as numeric.
diff --git a/priv/common.r b/priv/common.r
@@ -21,7 +21,8 @@ load_latency_frame <- function(File)
 load_benchmark <- function(Dir, Tstart, Tend)
   {
     ## Load up summary data
-    summary <- read.csv(sprintf("%s/%s", Dir, "summary.csv"))
+    summary <- read.csv(sprintf("%s/%s", Dir, "summary.csv"),
+                        colClasses=rep("numeric", 5))
 
     ## Get a list of latency files
     latencies <- lapply(list.files(path = Dir, pattern = "_latencies.csv",

Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,8 @@ load_latency_frame <- function(File)`
`21`	`21`	`load_benchmark <- function(Dir, Tstart, Tend)`
`22`	`22`	`{`
`23`	`23`	`## Load up summary data`
`24`		`- summary <- read.csv(sprintf("%s/%s", Dir, "summary.csv"))`
	`24`	`+ summary <- read.csv(sprintf("%s/%s", Dir, "summary.csv"),`
	`25`	`+ colClasses=rep("numeric", 5))`
`25`	`26`
`26`	`27`	`## Get a list of latency files`
`27`	`28`	`latencies <- lapply(list.files(path = Dir, pattern = "_latencies.csv",`