Update graph

Author: afroozeh

plot.sh

@@ -7,24 +7,33 @@ draw_plot <- function(name, displayName, iguana, antlr) {
 	output <- paste(name, ".pdf", sep="")
 	pdf(output, width=12, height=6, family="CM Roman")
 
-	boxplot(iguana$Score, antlr$Score, horizontal=TRUE, names = c("Iguana", "ANTLR"), las=2, outline=FALSE, main=displayName, xlab="Running time (milliseconds)")
+	boxplot(iguana$Score, antlr$Score, horizontal=TRUE, names = c("Iguana", "ANTLR"), outline=FALSE, main=displayName, xlab="Running time (milliseconds)")
 	text(x = boxplot.stats(round(iguana$Score, 2))$stats, labels = boxplot.stats(round(iguana$Score, 2))$stats, y = 0.55)
 	text(x = boxplot.stats(round(antlr$Score, 2))$stats, labels = boxplot.stats(round(antlr$Score, 2))$stats, y = 1.55)
 
 	dev.off()
 }
 
+draw_relative_plot <- function(name, displayName, data) {
+	output <- paste(name, ".pdf", sep="")
+	pdf(output, width=12, height=6, family="CM Roman")
+
+	boxplot(data, horizontal=TRUE, names = c("Relative performance"), outline=FALSE)
+	text(x = boxplot.stats(round(data, 2))$stats, labels = boxplot.stats(round(data, 2))$stats, y = 0.55)
+
+	dev.off()
+}
+
 names <- c("RxJava", "elasticsearch", "jdk7u-jdk", "guava", "junit4")
 displayNames <- c("RxJava", "Elastic Search", "OpenJDK 7", "Guava", "Junit 4")
 
 total_iguana <- data.frame()
 total_antlr <- data.frame()
+total_relative <- c()
 
 for (i in 1:length(names)) {
 	name <- names[i]
 	displayName <- displayNames[i]
-	output <- paste(name, ".pdf", sep="")
-	pdf(output, width=12, height=8, family="CM Roman")
 
 	iguana <- read.csv(paste("Iguana_", name, ".csv", sep=""), header=TRUE, sep=",", dec=",", stringsAsFactors=FALSE)
 	iguana[, "Score"]  <- as.numeric(iguana[, "Score"])
@@ -34,11 +43,32 @@ for (i in 1:length(names)) {
 	antlr[, "Score"]  <- as.numeric(antlr[, "Score"])
 	total_antlr <- rbind(total_antlr, antlr)
 
+	print(length(iguana$Score))
+	print(length(antlr$Score))
+
 	draw_plot(name, displayName, iguana, antlr)
 }
 
+for (i in 1:length(names)) {
+	name <- names[i]
+	displayName <- displayNames[i]
+
+	iguana <- read.csv(paste("Iguana_", name, ".csv", sep=""), header=TRUE, sep=",", dec=",", stringsAsFactors=FALSE)
+	iguana[, "Score"]  <- as.numeric(iguana[, "Score"])
+
+	antlr <- read.csv(paste("Antlr_", name, ".csv", sep=""), header=TRUE, sep=",", dec=",", stringsAsFactors=FALSE)
+	antlr[, "Score"]  <- as.numeric(antlr[, "Score"])
+
+	relative <- iguana$Score / antlr$Score
+	total_relative <- c(total_relative, relative)
+
+	draw_relative_plot(paste("relative_", name, sep=""), displayName, relative)
+}
+
 draw_plot("total", "All Files", total_iguana, total_antlr)
 
+draw_relative_plot("relative_total", "All Files", total_relative)
+
 for (name in names) {
 	output <- paste(name, ".pdf", sep="")
 	embedded_output <- paste("embedded_", output, sep="")