#
# Epage 37
# 
# 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.
# 
#-----

library(DAAG)

Manitoba.lakes = data.frame( elevation=c(217, 254, 248, 254, 253, 227, 178, 207, 217), area=c(24387, 5374, 4624, 2247, 1353, 1223, 1151, 755, 657) )
row.names(Manitoba.lakes) = c("Winnipeg","Winnipegosis","Manitoba","SouthernIndian","Cedar","Island","Gods","Cross","Playgreen")

print( head(Manitoba.lakes,3) )

attach(Manitoba.lakes)

# Part (a) linear scale:
#
#postscript("../../WriteUp/Graphics/Chapter1/prob_7_plot.eps", onefile=FALSE, horizontal=FALSE)
dotchart( area, labels=row.names(Manitoba.lakes), xlab="area" )
title("Manitoba's largest lakes")
#dev.off()

# Part (b)
#
#postscript("../../WriteUp/Graphics/Chapter1/prob_7_plot_logy.eps", onefile=FALSE, horizontal=FALSE)
dotchart( log2(area), labels=row.names(Manitoba.lakes), xlab="log2(area)" )
title("Log2 of Manitoba's largest lakes")
#dev.off()

detach(Manitoba.lakes)