Permalink
Cannot retrieve contributors at this time
# | |
# feature-var.R, 28 Aug 20 | |
# | |
# Data from: | |
# Variability Modeling in the Systems Software Domain | |
# Thorsten Berger and Steven She and Rafael Lotufo and Andrzej W\c{a}sowski and Krzysztof Czarnecki | |
# | |
# Example from: | |
# Evidence-based Software Engineering: based on the publicly available data | |
# Derek M. Jones | |
# | |
# TAG feature_dependent system_variability | |
source("ESEUR_config.r") | |
library("plyr") | |
# model,feature,all,ctc | |
features=read.csv(paste0(ESEUR_dir, "regression/references_all2.csv.xz"), as.is=TRUE) | |
t=subset(features, (model != "eCos-all") & (model != "eCos-i386")) | |
features=subset(t, all > 0) | |
pal_col=rainbow(length(unique(features$model))) | |
feature_plot=function(df) | |
{ | |
t=table(df$all) | |
lines(names(t), t, col=pal_col[col_num]) | |
col_num<<-col_num+1 | |
} | |
col_num=1 | |
plot(1, type="n", log="y", | |
xaxs="i", | |
xlim=c(1, 11), ylim=c(1, 2000), | |
xlab="Dependent features", ylab="Number of features\n") | |
d_ply(features, .(model), feature_plot) | |
legend(x="topright", legend=unique(features$model), | |
inset=-c(0.02, 0.02), bty="n", fill=pal_col, cex=1.2) | |