Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
49 lines (35 sloc) 1.25 KB
#
# boxplot-10-cscw.R, 12 Apr 20
#
# Data from:
# Information Needs in Bug Reports: Improving Cooperation Between Developers and Users
# Silvia Breu and Rahul Premraj and Jonathan Sillito and Thomas Zimmermann
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG fault-report_information
source("ESEUR_config.r")
plot_layout(1, 1, default_height=6)
par(mar=MAR_default-c(0.7, 0.0, 0.7, 0))
par(bty="n")
bug_rep=read.csv(paste0(ESEUR_dir, "communicating/10-cscw-data.csv.xz"), as.is=TRUE)
eclipse_rep=subset(bug_rep, bug_rep$project == "Eclipse")
box_inf=boxplot(eclipse_rep$min.response.time, log="y",
boxwex=0.25,
col="yellow",
xlim=c(0.9, 2.3),
ylab="Seconds")
text(1+0.07, box_inf$stats[1, 1], pos=4, "Lower hinge", cex=1.3)
text(1+0.07, box_inf$stats[2, 1], pos=4, "First quartile", cex=1.3)
text(1+0.07, box_inf$stats[3, 1], pos=4, "Median", cex=1.3)
text(1+0.07, box_inf$stats[4, 1], pos=4, "Third quartile", cex=1.3)
text(1+0.07, box_inf$stats[5, 1], pos=4, "Upper hinge", cex=1.3)
text(1+0.07, box_inf$stats[5, 1]*3, pos=4, "Potential\nOutliers", cex=1.3)
box_inf=boxplot(eclipse_rep$min.response.time+1, log="y",
boxwex=0.25,
col="yellow",
notch=TRUE,
add=TRUE,
at=2)