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) | |