#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
#
#-----

data = c( 10000, 9000, 3000, 2600, 2400, 1700, 1500, 1100, 360, 1 )

mean( data )
median( data )

# Plot a histogram:
#
#postscript("../../WriteUp/Graphics/Chapter1/ex_13_hist.eps", onefile=FALSE, horizontal=FALSE)
par(mfrow=c(1,2))
hist( data )
hist( log(data) )
par(mfrow=c(1,1))
#dev.off()