# display data on composite cumulative characteristic diagrams
data(projectdata);
op <- par(mfrow=c(2,2));
for (projectName in c("Gremon","Ant","Struts2","Tomcat")) {
actualProjectData <- projectdata[[projectName]];
maintainabilityDiffs <- list(
actualProjectData[actualProjectData$D > 0, "MaintainabilityDiff"],
actualProjectData[actualProjectData$D == 0
& actualProjectData$A > 0, "MaintainabilityDiff"],
actualProjectData[actualProjectData$D == 0 & actualProjectData$A == 0
& actualProjectData$U >= 2, "MaintainabilityDiff"],
actualProjectData[actualProjectData$D == 0 & actualProjectData$A == 0
& actualProjectData$U == 1, "MaintainabilityDiff"]
);
ccdplot(
maintainabilityDiffs,
remove.absolute=1000.0,
main=paste(projectName, "unbiased", sep="- "),
sub="(overall, delete, add, update+, update 1)",
xlab="Revisions",
ylab="Accumulated maintainability change",
cex.main=1.5,
cex.axis=1.2);
}
par(op)
Run the code above in your browser using DataLab