library(ggplot2)
df <- read.csv("http://dl.dropbox.com/u/361076/maxprocs_compare.csv")
breaks <- seq(-40, 40)
summary(df$new_maxprocs - df$current_maxprocs)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -31 -3 -2 -2 -1 24
ggplot(df, aes(x = new_maxprocs - current_maxprocs)) + geom_histogram(binwidth = 1,
aes(fill = ..count..), breaks = breaks)
summary(df$shared_maxprocs - df$current_maxprocs)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -29.00 -1.00 1.00 0.98 2.00 48.00
ggplot(df, aes(x = shared_maxprocs - current_maxprocs)) + geom_histogram(binwidth = 1,
aes(fill = ..count..), breaks = breaks)
summary(df$shared_maxprocs - df$new_maxprocs)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -1.00 1.00 3.00 2.98 3.00 33.00
ggplot(df, aes(x = shared_maxprocs - new_maxprocs)) + geom_histogram(binwidth = 1,
aes(fill = ..count..), breaks = breaks)