Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Volcano plots.

  • Loading branch information...
commit 7dbe2b4f1b65ffabcacc54821862bc79c476ec34 1 parent 98d8ada
@jlouis authored
Showing with 17 additions and 0 deletions.
  1. +17 −0 stats/stats.r
View
17 stats/stats.r
@@ -60,6 +60,18 @@ ws.plot.box <- function(T) {
colour = "grey50")))
}
+# Volcano
+ws.plot.volcano <- function(T) {
+ v <- ggplot(T, aes(x = log10(elapsed_ms)))
+ (v + stat_density(aes(ymax = ..density.., ymin = -..density..),
+ fill = "grey50",
+ colour = "grey50",
+ geom = "ribbon",
+ position = "identity")
+ + facet_grid(. ~ framework)
+ + coord_flip())
+}
+
## BEGIN PLOTTING
# Conn timeout
pdf("stat_results/conn_timeouts.pdf")
@@ -77,6 +89,11 @@ png("stat_results/handshake_jitter.png")
ws.plot.jitter(handshake)
dev.off()
+# Handshake Volcano
+pdf("stat_results/handshake_volcano.pdf", width=15)
+ws.plot.volcano(handshake)
+dev.off()
+
# Handshake Box
pdf("stat_results/handshake_box.pdf")
ws.plot.box(handshake)
Please sign in to comment.
Something went wrong with that request. Please try again.