Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
#
# SPEC-den-interval.R, 24 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")
library("sm")
par(mar=MAR_default+c(0, 1, 0, 0))
# pal_col=rainbow(2)
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)
res_sample=sample(cint$Result, size=1000)
sm.density(res_sample, h=4, col=point_col, se=TRUE,
rugplot=FALSE,
# xaxs="i", yaxs="i", # not available
xlim=c(0, 81), ylim=c(0, 0.033),
xlab="SPECint Result", ylab="Density\n\n")