kitchenham1985.R

#
# kitchenham1985.R, 28 Aug 17
# Data from:
# Software Project Development Cost Estimation
# Barbara A. Kitchenham and N. R. Taylor
# Cost Reporting Elements and Activity Cost Tradeoffs for Defense System Software (study results)
# C. A. Graver and W. M. Carriere and E. E. Balkovich and R. Thibodeau
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG estimate_cost project_cost project_estimate cost_tradeoff

source("ESEUR_config.r")


library("compositions")

pal_col=rainbow(3)
hcl_col=rainbow_hcl(3)
pt_col=rainbow(4)


# Effort/Schedule is measured in months
eff=read.csv(paste0(ESEUR_dir, "projects/kitchenham1985.csv.xz"), as.is=TRUE)

ICL=subset(eff, Company == "ICL_VME")
BT=subset(eff, Company == "BT_SoftHse")

phase_ICL=acomp(ICL, parts=c("Design", "Code", "Test"))
phase_BT=acomp(BT, parts=c("Design", "Code", "Test"))

plot(phase_ICL, col=pt_col[1], labels="", mp=NULL)
plot(phase_BT, col=pt_col[2], labels="", mp=NULL, add=TRUE)
ternaryAxis(side=-1:-3, at=seq(0.25, 0.75, 0.25), labels="",
                pos=c(0.5,0.5,0.5), col.axis=hcl_col, col.lab=pal_col,
                small=TRUE, aspanel=TRUE,
                Xlab="Design", Ylab="Code", Zlab="Test")


# mean(phase_ICL)
# mean(phase_BT)

# Effort as percentage
eff=read.csv(paste0(ESEUR_dir, "projects/a053020.csv.xz"), as.is=TRUE)

project=subset(eff, Category == "Project")
author=subset(eff, Category == "Author")

phase_proj=acomp(project, parts=c("Anal_Des", "Coding", "Integ_Test"))
phase_aut=acomp(author, parts=c("Anal_Des", "Coding", "Integ_Test"))

plot(phase_proj, col=pt_col[3], labels="", mp=NULL, add=TRUE)
plot(phase_aut, col=pt_col[4], labels="", mp=NULL, add=TRUE)


# mean(phase_proj)
# mean(phase_aut)