Permalink
Cannot retrieve contributors at this time
# | |
# patch-len.R, 1 Feb 20 | |
# | |
# Data from: | |
# A Study of Linux File System Evolution | |
# Lanyue Lu and Andrea C. Arpaci-Dusseau and Remzi H. Arpaci-Dusseau and Shan Lu | |
# | |
# Example from: | |
# Evidence-based Software Engineering: based on the publicly available data | |
# Derek M. Jones | |
# | |
# TAG Linux_file-system commit | |
source("ESEUR_config.r") | |
library("plyr") | |
pal_col=rainbow(2) | |
p_inf=read.csv(paste0(ESEUR_dir, "maintenance/fs-patch/p-all.csv.xz"), as.is=TRUE) | |
y_bounds=c(1, 400) | |
x_bounds=c(0.9, 100) | |
plot_kind=function(kind_str) | |
{ | |
kind=subset(p_inf, kind == kind_str) | |
k_added=kind$added[kind$added < 100] | |
# print(c(length(k_added), mean(k_added), sd(k_added))) | |
plot(count(k_added), type="p", log="xy", col=pal_col[1], | |
xaxs="i", | |
xlim=x_bounds, ylim=y_bounds, | |
xlab="Commit length (lines)", ylab="Commits\n") | |
k_del=kind$deleted[kind$deleted < 100] | |
# print(c(length(k_del), mean(k_del), sd(k_del))) | |
points(table(k_del), col=pal_col[2], type="p") | |
legend(x="topright", legend=c("Added", "Deleted"), bty="n", fill=pal_col, cex=1.2) | |
} | |
plot_kind("bug") | |
# plot_kind("performance") | |
# plot_kind("reliability") | |
# plot_kind("maintenance") | |
# plot_kind("feature") | |