###################################################
### code chunk number 29: Cs19_add.hood.canal
###################################################
sealData.hc <- rbind(sealData, harborSeal[, 8])
rownames(sealData.hc)[12] <- "Hood.Canal"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.