Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
35 lines (24 sloc) 729 Bytes
#
# comp-progress.R, 17 Sep 15
#
# Data from:
#
# The Progress of Computing
# William D. Nordhaus
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
library("plyr")
bench=read.csv(paste0(ESEUR_dir, "regression/comp-progress.csv.xz"), as.is=TRUE)
tech_vec=unique(bench$technology)
pal_col=0
pal_col[tech_vec]=rainbow(length(tech_vec))
plot(0, type="n", log="y",
xlim=range(bench$Date), ylim=range(bench$total_cost_mill_ops),
xlab="Year", ylab="Cost per million ops\n")
d_ply(bench, .(technology), function(df)
points(df$Date, df$total_cost_mill_ops,
col=pal_col[df$technology]))
legend(x="bottomleft", legend=tech_vec, bty="n", fill=pal_col[tech_vec], cex=1.2)