Permalink
Cannot retrieve contributors at this time
# | |
# MemDiskPrice-xl95.R, 14 Apr 20 | |
# Data from: | |
# www.jcmit.com | |
# copyright 2000, 2004, 2007 John C. McCallum | |
# e5a4abf7b6834e... data from: | |
# Steven J. Davis and Jack MacCrisken and Kevin M. Murphy | |
# Economic Perspectives on Software Design: {PC} Operating Systems and Platforms | |
# | |
# Example from: | |
# Evidence-based Software Engineering: based on the publicly available data | |
# Derek M. Jones | |
# | |
# TAG storage_cost disc_cost floppy_cost flash_cost DVD_cost | |
source("ESEUR_config.r") | |
par(mar=MAR_default+c(0.0, 0.7, 0, 0)) | |
pal_col=rainbow(5) | |
mag=read.csv(paste0(ESEUR_dir, "hardware/MemDiskPrice-mag.csv.xz"), as.is=TRUE) | |
flash=read.csv(paste0(ESEUR_dir, "hardware/MemDiskPrice-flash.csv.xz"), as.is=TRUE) | |
e5=read.csv(paste0(ESEUR_dir, "hardware/e5a4abf7b6834e_second-store.csv.xz"), as.is=TRUE) | |
e5$date=seq(1983, 2001, by=0.5) # Off by a month or two in places | |
hd=subset(mag, Type != "floppy") | |
floppy=subset(mag, Type == "floppy") | |
plot(hd$date, hd$Cost.US./hd$Size.MBytes, log="y", col=pal_col[1], | |
xlab="Date", ylab="Dollars per MB\n\n") | |
points(floppy$date, floppy$Cost.US./floppy$Size.MBytes, col=pal_col[2]) | |
points(e5$date, e5$f5.25.360K/0.36, col=pal_col[2]) | |
points(e5$date, e5$f5.25.1.2MB/1.2, col=pal_col[2]) | |
points(e5$date, e5$f3.5.1.44MB/1.44, col=pal_col[2]) | |
points(flash$date, flash$Cost.US./flash$Size.MBytes, col=pal_col[4]) | |
points(e5$date, e5$CD.ROM.650MB/650, col=pal_col[3]) | |
points(e5$date, e5$DVD.ROM.4.7GB/4.7e+3, col=pal_col[5]) | |
legend(x="bottomleft", legend=c("Hard disc", "Floppy drive (various capacities)", "CD drive", "Flash memory", "DVD drive"), bty="n", fill=pal_col, cex=1.2) | |