Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Newer bw vs. time, higher-res latency histogram.
  • Loading branch information
joshcarter committed Feb 23, 2012
1 parent fdd11e3 commit 9c2392a
Show file tree
Hide file tree
Showing 2 changed files with 38 additions and 1 deletion.
37 changes: 37 additions & 0 deletions analysis/bw_vs_bs.R
Expand Up @@ -77,6 +77,43 @@ bw_vs_time <- function(df) {
return(p)
}

bw_vs_time3 <- function(df, mark_x_min, mark_x_max) {
ymax = max(df$rate)

p <- ggplot(df) +
aes(time, rate) +
xlab("Time (s)") +
ylab("Bandwidth (MB/s)") +
ylim(0, ymax) +
scale_y_continuous(
breaks = c(100, 1000),
labels = c("100MB/s", "1GB/s")) +
facet_grid(block_size ~ dir) +
geom_rect(
aes(
xmin=30,
xmax=50,
ymin=0,
ymax=120),
fill="cadetblue3") +
geom_point()

return(p)
}

#
# Bandwidth vs. time for single op/block size (e.g. drive conditioning run).
#
simple_bw_vs_time <- function(df) {
p <- ggplot(df) +
aes(time, rate) +
xlab("Time (s)") +
ylab("Bandwidth (MB/s)") +
geom_smooth()

return(p)
}

#
# Compare two bandwidth summary frames.
#
Expand Down
2 changes: 1 addition & 1 deletion analysis/latency_vs_bs.R
Expand Up @@ -89,7 +89,7 @@ complete_hist <- function(df) {
breaks = c(1),
labels = c("1")) +
facet_grid(block_size ~ dir) +
geom_histogram(binwidth = 0.2)
geom_histogram(binwidth = 0.05)

return(p)
}
Expand Down

0 comments on commit 9c2392a

Please sign in to comment.