Permalink
Cannot retrieve contributors at this time
# | |
# os-features.R, 31 Aug 16 | |
# Data from: | |
# Performance Variance Evaluation on Mozilla Firefox | |
# Jan Larres | |
# | |
# Example from: | |
# Evidence-based Software Engineering: based on the publicly available data | |
# Derek M. Jones | |
# | |
# TAG benchmark_performance Firefox_performance performance_variation | |
source("ESEUR_config.r") | |
library("plyr") | |
library("reshape2") | |
library("lattice") | |
# Normalised all results by the original data | |
normalise_results=function(df) | |
{ | |
t=mean(df$with_noise) | |
df$Original=df$with_noise/t | |
df$Stablised=df$less_noise/t | |
return(df) | |
} | |
os_features=read.csv(paste0(ESEUR_dir, "benchmark/os-features.csv.xz"), as.is=TRUE) | |
n_t=ddply(os_features, .(program), normalise_results) | |
# Display first six sets of results | |
n_t=subset(n_t, program %in% unique(n_t$program)[1:6]) | |
n_t$with_noise=NULL | |
n_t$less_noise=NULL | |
m_t=melt(n_t, id.vars="program") | |
brew_col=rainbow_hcl(2) | |
# boxplot(Original ~ program, data=n_t, notch=TRUE) | |
t=bwplot(value ~ variable | program, data=m_t, | |
panel=panel.violin, col="yellow", | |
par.strip.text=list(cex=0.75), | |
scales=list(y=list(cex=0.8)), | |
ylab="Normalised performance") | |
plot(t, panel.height=list(2.0, "cm"), | |
panel.width=list(3.0, "cm")) | |