-
Notifications
You must be signed in to change notification settings - Fork 46
/
e9f6828098808322e53.R
45 lines (32 loc) · 1.25 KB
/
e9f6828098808322e53.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#
# 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)