Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
45 lines (32 sloc) 1.25 KB
#
# e9f6828098808322e53.R, 24 May 20
# Data from:
# Sasa M. Dekleva
# The Influence of the Information Systems Development Approach on Maintenance
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG system_age
source("ESEUR_config.r")
pal_col=rainbow(2)
# The Value for Time is hours, all other Values are percent
# Percents, for the same project, should add to 100. But available
# project id is Age in years (extracted values don't have enough accuracy
# to enable ages to be matched).
maint=read.csv(paste0(ESEUR_dir, "ecosystems/e9f6828098808322e53.csv.xz"), as.is=TRUE)
mtime=subset(maint, Action == "Time")
mod=subset(mtime, Method == "Mod")
trad=subset(mtime, Method == "Trad")
# trad[order(trad$Age), ]
plot(mod$Age, mod$Value, log="y", col=pal_col[1],
xaxs="i",
xlim=c(0, max(maint$Age)), ylim=range(mtime$Value),
xlab="Age (years)", ylab="Maintenance (hours)\n")
points(trad$Age, trad$Value, col=pal_col[2])
m=loess.smooth(mod$Age, log(mod$Value), span=0.5)
lines(m$x, exp(m$y), col=pal_col[1])
t=loess.smooth(trad$Age, log(trad$Value), span=0.5)
lines(t$x, exp(t$y), col=pal_col[2])
legend(x="bottomright", legend=c("Modern (1992)", "Traditional"), bty="n", fill=pal_col, cex=1.2)