Permalink
Cannot retrieve contributors at this time
| # | |
| # linux-stable.R, 22 Apr 20 | |
| # | |
| # Data from: | |
| # Linux Kernel development: How fast it is going, who is doing it, what they are doing, and who is sponsoring it (Mar 2012) | |
| # Jonathan Corbet and Greg Kroah-Hartman and Amanda McPherson | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG Linux_updates LOC_evolution developer Linux_2012 | |
| source("ESEUR_config.r") | |
| pal_col=rainbow(3) | |
| # plot(patches$Total.Updates, patches$Fixes, | |
| patches=read.csv(paste0(ESEUR_dir, "regression/linux-patch-fix.csv.xz"), as.is=TRUE) | |
| # xlim=c(0, 60), ylim=c(0, 1000)) | |
| # | |
| # p_mod=glm(Fixes ~ Total.Updates, data=patches) | |
| cleaned=subset(patches, Total.Updates < 40) | |
| c_mod=glm(Fixes ~ Total.Updates, data=cleaned) | |
| plot(cleaned$Total.Updates, cleaned$Fixes, col=pal_col[2], | |
| xaxs="i", yaxs="i", | |
| xlab="Number of updates", ylab="Number of fixes\n", | |
| xlim=c(0, 25), ylim=c(0, 900)) | |
| pred=predict(c_mod, newdata=data.frame(Total.Updates=1:25), type="response", se.fit=TRUE) | |
| lines(pred$fit, col=pal_col[1]) | |
| lines(pred$fit+1.96*pred$se.fit, col=pal_col[3]) | |
| lines(pred$fit-1.96*pred$se.fit, col=pal_col[3]) | |
| # t=loess(Fixes ~ Total.Updates, data=cleaned, span=0.3) | |
| # q=predict(t, newdata=data.frame(Total.Updates=1:30)) | |
| # lines(q, col="red") | |
| # summary(c_mod) | |