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

attach(cuckoohosts)

#postscript("../../WriteUp/Graphics/Chapter2/prob_5_plot.eps", onefile=FALSE, horizontal=FALSE)

N = dim(cuckoohosts)[1]
plot( c(clength,hlength), c(cbreadth,hbreadth), col=rep( 1:2, c(N,N) ) )

# Join the points that are in the same nest with a line: 
for( i in 1:N ) lines( c(clength[i],hlength[i]), c(cbreadth[i],hbreadth[i]) )

text( hlength, hbreadth, abbreviate(rownames(cuckoohosts),8) )

#dev.off()

detach(cuckoohosts)