Permalink
Cannot retrieve contributors at this time
| # | |
| # DeLamarter.R, 12 Aug 17 | |
| # Data from: | |
| # Big Blue: {IBM's} Use and Abuse of Power | |
| # Richard Thomas DeLamarter | |
| # Table 12 | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG IBM_market-abuse memory_profit-margin | |
| source("ESEUR_config.r") | |
| library("plyr") | |
| plot_system=function(df) | |
| { | |
| lines(df$Memory, df$Profit., col=df$col) | |
| } | |
| # Table 10 figures for 1967 | |
| rental=c("2,500", "2,500", " 9,800", "18,700", "31,100", "53,300") | |
| ibm=read.csv(paste0(ESEUR_dir, "economics/DeLamarter.csv.xz"), as.is=TRUE) | |
| systems=unique(ibm$System) | |
| pal_col=rainbow(length(systems)) | |
| ibm$col=mapvalues(ibm$System, systems, pal_col[factor(systems)]) | |
| plot(ibm$Memory, ibm$Profit., type="n", log="x", | |
| xaxt="n", | |
| xlab="Memory (kilobytes)", ylab="% Profit\n") | |
| axis(1, 2^c(2:10)) | |
| d_ply(ibm, .(System), plot_system) | |
| legend(x="bottomright", legend=paste0("360/", systems, " ($", rental, ")"), bty="n", fill=pal_col, cex=1.2) | |