Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
36 lines (24 sloc) 978 Bytes
#
# empirical_jorg.R, 18 Oct 17
# Data from:
# An Empirical Study of Software Project Bidding
# Magne Jorgensen and Gunnar J. Carelius
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
pal_col=rainbow(3)
est=read.csv(paste0(ESEUR_dir, "projects/empirical_jorg.csv.xz"), as.is=TRUE)
Ag=subset(est, Group == "ExpA")
Bg=subset(est, Group == "ExpB")
Ag=Ag[order(Ag$Final_Estimate), ]
Bg=Bg[order(Bg$Final_Estimate), ]
plot(Ag$Early_Estimate, log="y", col=pal_col[1],
xaxt="n",
xlim=c(1, nrow(est)), ylim=range(c(est$Early_Estimate, est$Final_Estimate), na.rm=TRUE),
xlab="Estimator", ylab="Estimate (hours)\n")
axis(1, at=c(5, 10.5, 15), label=c("A group", "", "B group"))
points(Ag$Final_Estimate, col=pal_col[2])
points((nrow(Ag)+1):(nrow(Ag)+nrow(Bg)), Bg$Final_Estimate, col=pal_col[3])
legend(x="bottomright", legend=c("A early estimate", "A final estimate", "B final estimate"), bty="n", fill=pal_col, cex=1.2)
You can’t perform that action at this time.