File:Augustine's law.svg

Summary[edit]

# R script to generate the plot
p=read.table("combat.csv",header=T,sep=",")

# Ignore the Wright Model A
p=subset(p, Year > 1920)

svg("combat-aircraft.svg",width=8,height=6)

plot(log10(Price) ~ Year, data=p,
	main="US Combat Aircraft Price",
	xlim=c(1920,2010),
	ylim=c(4,9),
	ylab="Price",
	xlab="Year of introduction",
	yaxt="n"
)
axis(2, at=c(4:9), labels=c('$10k','$100k', '$1m', '$10m', '$100m','$1b'))
abline(lm(log10(Price) ~ Year, data=p), col="red")
grid()

# Non-overlapping Subset for the labels
for (model in (c(
	'P-6 Hawk',
	'P-51 Mustang',
	'F-100 Super Sabre',
	'F-16A/B Falcon',
	'F-18E Hornet',
	'B-52H',
	'B-52B',
	'F-35 Lightning'
))) {
	d=subset(p, Model == model)
	text(d$Year, log10(d$Price), labels=d$Model, pos=2)
	points(d$Year, log10(d$Price), col="blue")
}

dev.off()

"Year","Price","Model","Source"
1906,25000,"Wright Model A","http://en.wikipedia.org/wiki/Wright_Model_A"
1929,13000,"P-6 Hawk","http://en.wikipedia.org/wiki/Curtiss_P-6_Hawk"
1935,23000,"P-36 Mohawk","http://en.wikipedia.org/wiki/Curtiss_P-36_Hawk"
1939,44892,"P-40 Kittyhawk","http://en.wikipedia.org/wiki/Curtiss_P-40_Warhawk"
1942,242595,"A-26 Invader","http://en.wikipedia.org/wiki/A-26_Invader"
1945,50985,"P-51 Mustang","http://en.wikipedia.org/wiki/P-51_Mustang"
1945,85000,"P-47 Thunderbolt","http://en.wikipedia.org/wiki/F-47"
1950,196248,"F-94B Starfire","http://en.wikipedia.org/wiki/Lockheed_F-97_Starfire"
1954,697029,"F-100 Super Sabre","http://en.wikipedia.org/wiki/North_American_F-100_Super_Sabre"
1955,1443000,"B-52B","http://en.wikipedia.org/wiki/Boeing_B-52_Stratofortress"
1958,1420000,"F-104 Starfighter","http://en.wikipedia.org/wiki/Lockheed_F-104_Starfighter"
1960,2400000,"F-4E","http://en.wikipedia.org/wiki/McDonnell_Douglas_F-4_Phantom_II"
1964,9800000,"F-111","http://en.wikipedia.org/wiki/General_Dynamics_F-111"
1970,38000000,"F-14 Tomcat","http://en.wikipedia.org/wiki/F-14_Tomcat"
1972,11800000,"A-10 Thunderbolt","http://en.wikipedia.org/wiki/Fairchild_Republic_A-10_Thunderbolt_II"
1976,27900000,"F-15 Eagle","http://en.wikipedia.org/wiki/F-15_Eagle"
1978,14600000,"F-16A/B Falcon","http://en.wikipedia.org/wiki/F-16_Falcon"
1984,18800000,"F-16C/D Falcon","http://en.wikipedia.org/wiki/F-16_Falcon"
1989,26900000,"F-16E/F Falcon","http://en.wikipedia.org/wiki/F-16_Falcon"
1983,24000000,"F-18A Hornet","http://www.fighter-planes.com/info/f18.htm"
1995,35000000,"F-18E Hornet","http://www.fighter-planes.com/info/f18.htm"
1998,53400000,"B-52H","http://en.wikipedia.org/wiki/Boeing_B-52_Stratofortress"
2005,150000000,"F/A-22 Raptor","http://www.fighter-planes.com/info/f22.htm"
2006,191900000,"F-35 Lightning","http://en.wikipedia.org/wiki/Lockheed_Martin_F-35_Lightning_II"

References[edit]

Licensing[edit]

I, the copyright holder of this work, hereby publish it under the following licenses:

	This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.
	You are free: to share – to copy, distribute and transmit the work to remix – to adapt the work Under the following conditions: attribution – You must attribute the work in the manner specified by the author or licensor (but not in any way that suggests that they endorse you or your use of the work). share alike – If you alter, transform, or build upon this work, you may distribute the resulting work only under the same or similar license to this one. https://creativecommons.org/licenses/by-sa/3.0 CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

You may select the license of your choice.