#====================
# Figure 1.2
#====================
moose.density=c(.17,.23,.23,.26,.37,.42,.66,.80,1.11,1.30,1.37,
1.41,1.73,2.49)
kill.rate=c(.37,.47,1.90,2.04,1.12,1.74,2.78,1.85,1.88,1.96,
1.80,2.44,2.81,3.75)
plot(moose.density,kill.rate,type="p")
m=2.5*(0:100)/100
a=3.37
b=0.47
k=a*m/(b+m)
points(m,k,type="l")