p. 164 (1st printing). Line 9 should be:

hm.low.cov <- getCov(hm.low.data, sds=c(4.84,6.33,3.84,2.14,4.43),