Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
42 lines (28 sloc) 1.04 KB
#
# pclint.R, 18 Oct 19
# Data from:
# Software That Checks Software: The Impact of PC-lint
# James Gimpel
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG C tool_sales documentation_product
source("ESEUR_config.r")
pal_col=rainbow(4)
pclint=read.csv(paste0(ESEUR_dir, "projects/pclint.csv.xz"), as.is=TRUE)
pclint$Date=as.Date(pclint$Date, format="%d/%m/%Y")
# plot( ~ Lines+Messages+Manual.Kwords+I(Options^2), data=pclint)
plot(pclint$Date, pclint$Messages, type="b", col=pal_col[1],
yaxs="i",
ylim=c(0, 1200),
xlab="Date", ylab="")
points(pclint$Date, pclint$Manual.Kwords, col=pal_col[2], type="b")
points(pclint$Date, pclint$Options, col=pal_col[3], type="b")
points(pclint$Date, pclint$Lines/1e3, col=pal_col[4], type="b")
legend(x="topleft", legend=c("Messages", "Manual K words", "Options", "Source KLOC"), bty="n", fill=pal_col, cex=1.2)
# This model fits really well :-)
# pc_mod=glm(Lines ~ Messages+Manual.Kwords:I(Options^2), data=pclint)
#
# summary(pc_mod)