Permalink
Cannot retrieve contributors at this time
| # | |
| # SPEC-hist.R, 4 Mar 20 | |
| # | |
| # Data from: | |
| # www.spec.org/cpu2006/results | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG benchmark_SPEC | |
| source("ESEUR_config.r") | |
| # Need to get this plot to fit in the margin, along with the plot before it | |
| plot_layout(2, 1, max_height=12) | |
| par(mar=MAR_default-c(0.8, -2, 0.5, 0)) | |
| cpu2006=read.csv(paste0(ESEUR_dir, "benchmark/cpu2006-results-20140206.csv.xz"), as.is=TRUE) | |
| start_date=as.Date("01-Jan-2006", format="%d-%B-%Y") | |
| cpu2006$Test.Date=as.Date(paste0("01-", cpu2006$Test.Date), format="%d-%B-%Y") | |
| cpu2006=subset(cpu2006, Test.Date >= start_date) | |
| cint=subset(cpu2006, Benchmark == "CINT2006") | |
| cint$Benchmark=NULL | |
| cint=subset(cint, Result > 0) | |
| hist(cint$Result, main="", col=point_col, | |
| cex.axis=1.4, cex.lab=1.4, | |
| xlab="SPECint result", ylab="Number of computers\n") | |
| plot(density(cint$Result), col=point_col, main="", | |
| cex.axis=1.4, cex.lab=1.4, | |
| xaxs="i", yaxs="i", | |
| xlab="SPECint result", ylab="Density (of number of computers)\n\n") | |