Permalink
Cannot retrieve contributors at this time
# | |
# 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) | |