Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
51 lines (36 sloc) 1.37 KB
#
# 2010-berger.R, 30 Aug 18
#
# Data from:
# Feature-to-Code Mapping in Two Large Product Lines
# Thorsten Berger and Steven She and Krzysztof Czarnecki and Andrzej W\c{a}sowski
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG Linux FreeBSD C feature-macro
source("ESEUR_config.r")
FreeBSD=read.csv(paste0(ESEUR_dir, "group-compare/cond-compile/FreeBSD-PC.csv.xz"), as.is=TRUE)
Linux=read.csv(paste0(ESEUR_dir, "group-compare/cond-compile/Linux-PC.csv.xz"), as.is=TRUE)
pal_col=rainbow(2)
FreeBSD_count=rep(FreeBSD$features, times=FreeBSD$count)
Linux_count=rep(Linux$features, times=Linux$count)
plot(table(Linux_count), type="b", col=pal_col[1],
xlim=c(0, 8),
xlab="Number of features", ylab="Occurrences\n")
lines(table(FreeBSD_count), col=pal_col[2], type="b")
# library("fitdistrplus")
# L_dist=descdist(Linux_count, discrete=TRUE, boot=100)
# F_dist=descdist(FreeBSD_count, discrete=TRUE, boot=100)
# library("WRS")
# ks(Linux_stand, FreeBSD_stand)
# library("dgof")
# library("kSamples")
#
# dgof::ks.test uses stats::ecdf internally, but without the qualified name.
# WRS defines its own ecdf function, so both packages do not coexist!
# One of the arguments has to be the empirical cumulative distribution function
# detach("package:WRS", unload=TRUE)
# dgof::ks.test(Linux_stand,
# ecdf(FreeBSD_stand))
You can’t perform that action at this time.