Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
45 lines (33 sloc) 1.25 KB
#
# sample-1000.R, 13 Apr 20
#
# Data from:
# Statistical Performance Comparisons of Computers
# Tianshi Chen and Yunji Chen and Qi Guo and Olivier Temam and Tue Wu and Weiwu Hu
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG benchmark_hardware performance_comparison
source("ESEUR_config.r")
plot_layout(1, 1, default_height=6)
par(mar=MAR_default-c(0.7, -0.7, 0.0, 0))
pal_col=rainbow(3)
bench_pop=read.csv(paste0(ESEUR_dir, "statistics/office_rsynth.gcc.basetime.csv.xz"))
clock_den=density(bench_pop$clocks)
max_y=max(clock_den$y)
plot(clock_den, col=point_col, main="",
yaxs="i",
ylim=range(clock_den$y)*1.12, # a hack so that 'median' is not cropped
xlab="Execution time", ylab="Density\n\n")
m_1=mean(bench_pop$clocks)
m_2=median(bench_pop$clocks)
# Point of maximum density
m_3=clock_den$x[which(clock_den$y == max(clock_den$y))]
lines(c(m_1, m_1), c(0, max_y), col=pal_col[1])
lines(c(m_2, m_2), c(0, max_y), col=pal_col[2])
lines(c(m_3, m_3), c(0, max_y), col=pal_col[3])
text(m_1, max_y, "mean", pos=4, col=pal_col[1], offset=c(0.2, -0.6), cex=1.4)
text(m_2, max_y, "median", pos=3, col=pal_col[2], cex=1.4)
text(m_3, max_y, "mode", pos=2, col=pal_col[3], offset=c(0.2, -0.6), cex=1.4)