Permalink
Cannot retrieve contributors at this time
| # | |
| # ibm-os-growth.R, 22 Sep 20 | |
| # Data from: | |
| # SOFTWARE ENGINEERING Report on a conference sponsored by the {NATO} SCIENCE COMMITTEE | |
| # Peter Naur and Brian Randell | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG IBM_OS OS_LOC LOC_evolution | |
| source("ESEUR_config.r") | |
| pal_col=rainbow(3) | |
| plot_model=function(df, pos_val=4) | |
| { | |
| text(df$year[1], df$instructions[1]/(2^10), df$model[1], pos=pos_val, col=pal_col[3]) | |
| } | |
| ibm_os=read.csv(paste0(ESEUR_dir, "ecosystems/ibm-os-growth.csv.xz"), as.is=TRUE) | |
| plot(ibm_os$year, ibm_os$instructions/(2^10), log="y", col=pal_col[1], | |
| xlab="Year", ylab="Instructions (K)\n") | |
| ins_mod=glm(log(instructions) ~ year, data=ibm_os) | |
| # summary(ins_mod) | |
| pred=predict(ins_mod) | |
| lines(ibm_os$year, exp(pred)/(2^10), col=pal_col[2]) | |
| dummy=sapply(c(1, 3:9, 11:13), function(X) plot_model(ibm_os[X, ])) | |
| dummy=sapply(c(2, 10, 14, 15), function(X) plot_model(ibm_os[X, ], 2)) | |