-
Notifications
You must be signed in to change notification settings - Fork 46
/
eindor1985.R
41 lines (28 loc) · 876 Bytes
/
eindor1985.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
#
# eindor1985.R, 1 Jun 18
# Data from:
# Grosch's Law Re-revisited: {CPU} Power and the Cost of Computation
# Phillip Ein-Dor
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
#
# TAG hardware performance MIPS cost memory
source("ESEUR_config.r")
library("plyr")
plot_pts=function(df)
{
points(df$Max_Memory, df$Average_cost, col=df$col_str)
# points(df$MIPS, df$Average_cost, col=df$col_str)
}
ein=read.csv(paste0(ESEUR_dir, "ecosystems/eindor1985.csv.xz"), as.is=TRUE)
cat_str=unique(ein$Category)
pal_col=rainbow(length(cat_str))
ein$col_str=mapvalues(ein$Category, cat_str, pal_col)
plot(0.1, type="n", log="xy",
yaxs="i",
xlim=range(ein$Max_Memory), ylim=c(1, 800),
xlab="Maximum memory (Kbytes)", ylab="Average cost\n")
d_ply(ein, .(Category), plot_pts)
legend(x="bottomright", legend=cat_str, bty="n", fill=pal_col, cex=1.2)